Biz/Auth.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Biz.Auth
  ( Error (..),
    Password,
    Username,
  ) where

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

data Error
  = BadUsername
  | BadPassword

type Password = MisoString
type Username = MisoString