hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-14 09:32:22 +00:00
Code Issues Projects Releases Wiki Activity

Fix exception handling and increase rendering limit to 30s.

Browse source
This commit is contained in:
David 2019-02-27 11:36:22 +01:00
commit 85e64d863d
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
server/Main.hs
View file

@ -74,7 +74,7 @@ generateResponse c conn msg = do
case ret of
Left err -> do
sendTextData conn $ T.pack $ "Error" ++ unlines (drop 3 (lines err))
Right{} -> withTimeout conn 10 $ do
Right{} -> withTimeout conn 30 $ do
sendTextData conn (T.pack "Rendering")
getFrame <- runCmdLazy tmpExecutable ["+RTS", "-N", "-M50M", "-RTS"]
flip fix [] $ \loop acc -> do
@ -97,7 +97,8 @@ withTimeout conn t action = do
threadDelay (10^6 * t)
killThread self
sendTextData conn $ T.pack $ "Error" ++ "Timeout"
action `finally` killThread timer
action
killThread timer
-- mergeValues :: C.Cache String [T.Text] -> IO ()
-- mergeValues cache = do