From b1231978cc20324f65f9df94427f61f02458f57d Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 21 Feb 2019 15:41:38 +0100
Subject: [PATCH] Test Problem with makeClassy: just using one now

---
 src/Utils/Lens.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Utils/Lens.hs b/src/Utils/Lens.hs
index 2d94ac57b..500f6329f 100644
--- a/src/Utils/Lens.hs
+++ b/src/Utils/Lens.hs
@@ -26,13 +26,13 @@ _InnerJoinRight :: Lens' (E.InnerJoin l r) r
 _InnerJoinRight f (E.InnerJoin l r) = (l `E.InnerJoin`) <$> f r
 
 
--- makeLenses_ ''Entity
-makeClassyFor_ "HasEntity" "hasEntity" ''Entity
+makeLenses_ ''Entity
+-- makeClassyFor_ "HasEntity" "hasEntity" ''Entity
 -- class HasEntity c record | c -> record where
 --   hasEntity :: Lens' c (Entity record)
 
--- makeLenses_ ''Course
-makeClassyFor_ "HasCourse" "hasCourse" ''Course
+makeLenses_ ''Course
+-- makeClassyFor_ "HasCourse" "hasCourse" ''Course
 -- class HasCourse c where
 --   hasCourse :: Lens' c Course