From 29189bf8f80ce6ef8d2e05949470a05bd64100a7 Mon Sep 17 00:00:00 2001 From: SJost Date: Thu, 21 Feb 2019 15:27:39 +0100 Subject: [PATCH] Partial revert of commit 2550f740 to determine error source --- src/Utils/Lens.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/Utils/Lens.hs b/src/Utils/Lens.hs index 42b844180..2d94ac57b 100644 --- a/src/Utils/Lens.hs +++ b/src/Utils/Lens.hs @@ -25,22 +25,22 @@ _InnerJoinLeft f (E.InnerJoin l r) = (`E.InnerJoin` r) <$> f l _InnerJoinRight :: Lens' (E.InnerJoin l r) r _InnerJoinRight f (E.InnerJoin l r) = (l `E.InnerJoin`) <$> f r --- TEST HADDOCK -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 -- instance (HasCourse a) => HasCourse (Entity a) where -- hasCourse = _entityVal . hasCourse -makeLenses_ ''User --- makeClassyFor_ "HasUser" "hasUser" ''User +-- makeLenses_ ''User +makeClassyFor_ "HasUser" "hasUser" ''User -- > :info HasUser -- class HasUser c where -- hasUser :: Lens' c User -- MINIMAL