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

TEST Build-Error: one more makeClassy

Browse Source
This commit is contained in:
SJost 2019-02-21 15:55:12 +01:00
parent b1231978cc
commit e74555c40b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Utils/Lens.hs
View File

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