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 :: Lens' (E.InnerJoin l r) r
_InnerJoinRight f (E.InnerJoin l r) = (l `E.InnerJoin`) <$> f r _InnerJoinRight f (E.InnerJoin l r) = (l `E.InnerJoin`) <$> f r
-- TEST HADDOCK
makeLenses_ ''Entity -- makeLenses_ ''Entity
-- makeClassyFor_ "HasEntity" "hasEntity" ''Entity makeClassyFor_ "HasEntity" "hasEntity" ''Entity
-- class HasEntity c record | c -> record where -- class HasEntity c record | c -> record where
-- hasEntity :: Lens' c (Entity record) -- hasEntity :: Lens' c (Entity record)
makeLenses_ ''Course -- makeLenses_ ''Course
-- makeClassyFor_ "HasCourse" "hasCourse" ''Course makeClassyFor_ "HasCourse" "hasCourse" ''Course
-- class HasCourse c where -- class HasCourse c where
-- hasCourse :: Lens' c Course -- hasCourse :: Lens' c Course
-- instance (HasCourse a) => HasCourse (Entity a) where -- instance (HasCourse a) => HasCourse (Entity a) where
-- hasCourse = _entityVal . hasCourse -- hasCourse = _entityVal . hasCourse
makeLenses_ ''User -- makeLenses_ ''User
-- makeClassyFor_ "HasUser" "hasUser" ''User makeClassyFor_ "HasUser" "hasUser" ''User
-- > :info HasUser -- > :info HasUser
-- class HasUser c where -- class HasUser c where
-- hasUser :: Lens' c User -- MINIMAL -- hasUser :: Lens' c User -- MINIMAL