diff options
Diffstat (limited to 'fig-web')
| -rw-r--r-- | fig-web/src/Fig/Web/MaudeCode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-web/src/Fig/Web/MaudeCode.hs b/fig-web/src/Fig/Web/MaudeCode.hs index ea13ccd..e5ca9e3 100644 --- a/fig-web/src/Fig/Web/MaudeCode.hs +++ b/fig-web/src/Fig/Web/MaudeCode.hs @@ -124,7 +124,7 @@ app g cmds = do let tokens :: Int = 1000 responder <- liftIO MVar.newEmptyMVar liftIO $ MVar.modifyMVar_ g.responses $ pure . Map.insert index responder - response <- liftIO $ timeout 20_000_000 $ MVar.takeMVar responder + response <- liftIO $ timeout 60_000_000 $ MVar.takeMVar responder liftIO $ MVar.modifyMVar_ g.responses $ pure . Map.delete index uuid <- liftIO UUID.nextRandom timestamp :: Integer <- round <$> liftIO Time.getPOSIXTime |