matebeamter/src/Control/Auth.hs

13 lines
198 B
Haskell
Raw Normal View History

2019-09-08 10:48:57 +00:00
module Control.Auth where
import Servant.Server (Server)
-- internal imports
import Types
import View
authControl :: UserHandler AuthPage
authControl = do
error "Not yet implemented properly"