mirror of
https://github.com/quantum9Innovation/suntheme.git
synced 2024-11-28 11:03:50 -08:00
33 lines
858 B
Haskell
33 lines
858 B
Haskell
|
module Types where
|
||
|
|
|
||
|
|
import Control.Exception (SomeException)
|
||
|
|
|
||
|
|
class Status s where
|
||
|
|
ok :: s -> Bool
|
||
|
|
ok = const False
|
||
|
|
|
||
|
|
disp :: s -> String
|
||
|
|
disp = const "encountered bad response (expected OK)"
|
||
|
|
|
||
|
|
newtype ResponseCode = ResponseCode Int
|
||
|
|
instance Status ResponseCode where
|
||
|
|
ok (ResponseCode code) = code == 200
|
||
|
|
disp (ResponseCode code) =
|
||
|
|
"encountered bad response code: "
|
||
|
|
++ show code
|
||
|
|
++ " (expected 200 'OK')"
|
||
|
|
|
||
|
|
newtype ResponseMsg = ResponseMsg String
|
||
|
|
instance Status ResponseMsg where
|
||
|
|
ok (ResponseMsg msg) = msg == "success"
|
||
|
|
disp (ResponseMsg msg) =
|
||
|
|
"encountered bad response message: "
|
||
|
|
++ msg
|
||
|
|
++ " (expected 'success')"
|
||
|
|
|
||
|
|
toResponseMsg :: SomeException -> ResponseMsg
|
||
|
|
toResponseMsg = ResponseMsg . show
|
||
|
|
|
||
|
|
genericErr :: ResponseMsg
|
||
|
|
genericErr = ResponseMsg "encountered unknown error"
|