about summary refs log blame commit diff
path: root/users/wpcarro/website/sandbox/learnpianochords/src/server/TestUtils.hs
blob: 24054bf47afd4d51eac895930dd58075a9d3ab84 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12


                                                                                
          







                                                                                
                   



                                                                           
--------------------------------------------------------------------------------
module TestUtils where
--------------------------------------------------------------------------------
import RIO
import Web.JWT
import Data.String.Conversions (cs)
--------------------------------------------------------------------------------

unsafeStringOrURI :: String -> StringOrURI
unsafeStringOrURI x =
  case stringOrURI (cs x) of
    Nothing -> error $ "Failed to convert to StringOrURI: " ++ x
    Just res -> res

unsafeJust :: Maybe a -> a
unsafeJust Nothing = error "Attempted to force a Nothing to be a something"
unsafeJust (Just x) = x