019f8fd211
git-subtree-dir: users/wpcarro git-subtree-mainline:464bbcb15cgit-subtree-split:24f5a642afChange-Id: I6105b3762b79126b3488359c95978cadb3efa789
17 lines
636 B
Haskell
17 lines
636 B
Haskell
--------------------------------------------------------------------------------
|
|
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
|