Biz/Auth.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Biz.Auth where

import Data.ByteString (ByteString)
import Data.Text (Text)
import Miso.String

data Error
  = BadUsername
  | BadPassword

type Password = MisoString
type Username = MisoString