39 lines
854 B
Haskell
39 lines
854 B
Haskell
module Handler.School where
|
|
|
|
import Import
|
|
|
|
-- import Control.Lens
|
|
-- import Utils.Lens
|
|
-- import Utils.TH
|
|
-- import Handler.Utils
|
|
-- import Handler.Utils.Table.Cells
|
|
--
|
|
-- -- import Data.Time
|
|
-- import qualified Data.Text as T
|
|
-- import Data.Function ((&))
|
|
-- -- import Yesod.Form.Bootstrap3
|
|
--
|
|
-- import qualified Data.Set as Set
|
|
-- import qualified Data.Map as Map
|
|
--
|
|
-- import Colonnade hiding (fromMaybe,bool)
|
|
--
|
|
-- import qualified Database.Esqueleto as E
|
|
--
|
|
-- import qualified Data.UUID.Cryptographic as UUID
|
|
|
|
|
|
getSchoolListR :: Handler Html
|
|
getSchoolListR = do
|
|
-- muid <- maybeAuthId
|
|
defaultLayout $ do
|
|
[whamlet|TODO: Liste aller Institute |] -- TODO
|
|
|
|
|
|
getSchoolShowR :: SchoolId -> Handler Html
|
|
getSchoolShowR ssh = do -- TODO
|
|
-- muid <- maybeAuthId
|
|
defaultLayout $ do
|
|
[whamlet|TODO: Informationen zu einem Institut |] -- TODO
|
|
|