Close endpoint failure types across service and web boundaries
This commit is contained in:
parent
fb94ea2c23
commit
390434bed1
1 changed files with 266 additions and 72 deletions
|
|
@ -17,7 +17,7 @@ tests = testGroup "product behavior"
|
|||
getMonotonicTimeNSec
|
||||
(\_ _ -> do
|
||||
threadDelay 100000
|
||||
pure (Right (ListPage [] [] Nothing False)))
|
||||
pure (Right (ListPage [] [] Nothing False) :: Either () ListPage))
|
||||
100
|
||||
(started + 5000000)
|
||||
finished <- getMonotonicTimeNSec
|
||||
|
|
|
|||
Loading…
Reference in a new issue