fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Partial revert of commit 2550f740 to determine error source

Browse Source
This commit is contained in:
SJost 2019-02-21 15:27:39 +01:00
parent 2550f74056
commit 29189bf8f8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Utils/Lens.hs
View File

@ -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