34 lines
751 B
Haskell
34 lines
751 B
Haskell
module Utils.Lens ( module Utils.Lens ) where
|
|
|
|
import Import.NoFoundation
|
|
import Control.Lens as Utils.Lens
|
|
import Utils.Lens.TH as Utils.Lens (makeLenses_)
|
|
|
|
import qualified Database.Esqueleto as E (Value(..),InnerJoin(..))
|
|
|
|
_unValue :: Lens' (E.Value a) a
|
|
_unValue f (E.Value a) = E.Value <$> f a
|
|
|
|
_InnerJoinLeft :: Lens' (E.InnerJoin l r) l -- forall f. Functor f => (a -> f a) -> s -> f s
|
|
_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
|
|
|
|
|
|
makeLenses_ ''Entity
|
|
|
|
makeLenses_ ''Course
|
|
|
|
makeLenses_ ''SheetCorrector
|
|
|
|
makeLenses_ ''SubmissionGroup
|
|
|
|
makeLenses_ ''SheetGrading
|
|
|
|
makeLenses_ ''SheetType
|
|
|
|
-- makeClassy_ ''Load
|
|
|
|
|