ilyakooo0/roboservant
1
0
Fork 0
mirror of https://github.com/ilyakooo0/roboservant.git synced 2024-09-11 08:05:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

better error

Browse Source
This commit is contained in:
Mark Wotton 2020-09-04 12:01:03 -04:00
parent 8c7fd64ffa
commit 4356c47ad8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Roboservant/StateMachine.hs
View File

@ -240,8 +240,8 @@ tests = do
let clientEnv = mkClientEnv manager burl
-- faking this out for now.
footype = typeOf Foo
handleError :: forall a b m. Applicative m => (Either b a) -> m a
handleError = either (error "oopsie") pure
handleError :: forall a b m. (Show b, Applicative m) => (Either b a) -> m a
handleError = either (error . show) pure
reifiedApi =
[ (ApiOffset 0, [], footype, toDyn $ toDyn <$> (runClientM introC clientEnv >>= handleError)),
(ApiOffset 1, [footype, footype], footype, toDyn $ \f1 f2 -> toDyn <$> (runClientM (combineC f1 f2) clientEnv >>= handleError)),