diff options
| author | LLLL Colonq <llll@colonq> | 2026-07-03 20:15:07 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-07-03 20:15:07 -0400 |
| commit | c7f266fc4e9dbc98586a7a4aac462ca17017ef1f (patch) | |
| tree | dc5edf2328f40009d04ad8bea35d967ff9599acf /fig-web | |
| parent | 317ab6088c109fc771275a6a3698848b24dd51ab (diff) | |
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 |