13 lines
198 B
Haskell
13 lines
198 B
Haskell
|
module Control.Auth where
|
||
|
|
||
|
import Servant.Server (Server)
|
||
|
|
||
|
-- internal imports
|
||
|
|
||
|
import Types
|
||
|
import View
|
||
|
|
||
|
authControl :: UserHandler AuthPage
|
||
|
authControl = do
|
||
|
error "Not yet implemented properly"
|