Close endpoint failure types across service and web boundaries

This commit is contained in:
ms2k 2026-07-20 21:34:25 +09:00
commit 390434bed1

View file

@ -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