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

Improve error messages in web-viewer.

Browse source 
Former-commit-id: 071be9c57d5d595b6e6f002b56d6bf791b6192f8
This commit is contained in:
David 2019-02-27 12:07:21 +01:00
commit 4e48ca0833
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
server/Main.hs
View file

@ -49,7 +49,7 @@ generateResponse c conn msg = do
withTempFile ".hs" $ \tmpSource ->
withTempDir $ \tmpDir -> do
writeFile tmpSource $ unlines
["{-# LANGUAGE Arrows, OverloadedStrings #-}"
["{-# LANGUAGE Arrows, OverloadedStrings, CPP #-}"
,"module Main where"
,"import Reanimate.Arrow"
,"import Reanimate.Combinators"
@ -68,6 +68,7 @@ generateResponse c conn msg = do
," width_, x1_, x2_, x_, y1_, y2_, y_)"
,"import qualified Lucid.Svg as Lucid"
,"main = renderSvgs animation " ++ show tmpDir
,"#line 1 \"animation.hs\""
] ++ T.unpack msg
putStrLn $ "Compiling program:\n" ++ T.unpack msg
ret <- runCmd_ "stack" ["ghc", "--", "-rtsopts", "--make", "-threaded", "-O2", tmpSource, "-o", tmpExecutable]