54 lines
1.3 KiB
Haskell
54 lines
1.3 KiB
Haskell
{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE MultiWayIf #-}
|
|
{-# LANGUAGE PartialTypeSignatures #-}
|
|
{-# LANGUAGE RecordWildCards, NamedFieldPuns, TupleSections #-}
|
|
{-# LANGUAGE ViewPatterns #-}
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
{-# LANGUAGE FlexibleContexts #-}
|
|
|
|
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
|
|
|