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