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