24 lines
516 B
Haskell
24 lines
516 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE FunctionalDependencies #-}
|
|
module Utils.Lens ( module Utils.Lens ) where
|
|
|
|
import Import.NoFoundation
|
|
import Control.Lens as Utils.Lens
|
|
import qualified Database.Esqueleto as E (Value(..))
|
|
|
|
_unValue :: Lens' (E.Value a) a
|
|
_unValue f (E.Value a) = E.Value <$> f a
|
|
|
|
makeClassy_ ''Entity
|
|
|
|
makeClassy_ ''SheetCorrector
|
|
|
|
makeClassy_ ''Course
|
|
|
|
-- makeClassy_ ''Load
|
|
|
|
|