diff --git a/src/Utils/Lens.hs b/src/Utils/Lens.hs
index 500f6329f..b8924a19a 100644
--- a/src/Utils/Lens.hs
+++ b/src/Utils/Lens.hs
@@ -26,8 +26,8 @@ _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)