yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fit code within 80 characters

Browse source
This commit is contained in:
Justin Leitgeb 2013-10-11 09:04:11 -05:00
parent 15aec26799
commit 05dbca5120
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
server/Server.hs
View file

@ -38,8 +38,10 @@ serveElm :: FilePath -> ServerPartT IO Response
serveElm fp = do
guard (takeExtension fp == ".elm")
let file = tail fp
args = [ "--make" ,"--runtime=" ++ runtime, "--cache-dir=elm-server-cache", file ]
(_, stdout, _, handle) <- liftIO $ createProcess $ (proc "elm" args) { std_out = CreatePipe }
args = [ "--make" ,"--runtime=" ++ runtime,
"--cache-dir=elm-server-cache", file ]
(_, stdout, _, handle) <- liftIO $ createProcess $
(proc "elm" args) { std_out = CreatePipe }
exitCode <- liftIO $ waitForProcess handle
liftIO $ removeDirectoryRecursive "elm-server-cache"
case (exitCode, stdout) of
@ -49,7 +51,8 @@ serveElm fp = do
(ExitFailure _, Nothing) ->
badRequest $ toResponse "See command line for error message."
(ExitSuccess, _) ->
serveFile (asContentType "text/html") ("build" </> replaceExtension file "html")
serveFile
(asContentType "text/html") ("build" </> replaceExtension file "html")
serveLib :: FilePath -> [Char] -> ServerPartT IO Response
serveLib libLoc fp = do
@ -73,7 +76,10 @@ parse args =
argValue arg = tail $ dropWhile (/= '=') (head arg)
portNumber = if null portArg then 8000 else read (argValue portArg) :: Int
elmRuntime = if null runtimeArg then Elm.runtime else return $ argValue runtimeArg
elmRuntime = if null runtimeArg then
Elm.runtime
else
return $ argValue runtimeArg
usageMini :: String
usageMini =