Skip to content
This repository has been archived by the owner on Aug 23, 2018. It is now read-only.

Commit

Permalink
Stop calling out to 'elm', which no longer exists
Browse files Browse the repository at this point in the history
perhaps add something like this back later
  • Loading branch information
process-bot committed Nov 25, 2014
1 parent fd845f7 commit d3bc436
Showing 1 changed file with 4 additions and 9 deletions.
13 changes: 4 additions & 9 deletions backend/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -13,8 +13,6 @@ import qualified Text.Blaze.Html.Renderer.Utf8 as Blaze
import System.Console.CmdArgs
import System.Directory
import System.FilePath
import System.Process
import System.IO (hGetContents)
import Snap.Core
import Snap.Http.Server
import Snap.Util.FileServe
Expand Down Expand Up @@ -62,9 +60,7 @@ config portNumber =
main :: IO ()
main =
do cargs <- cmdArgs flags
(_,Just h,_,_) <- createProcess $ (shell "elm --version") { std_out = CreatePipe }
elmVer <- hGetContents h
putStrLn (startupMessage elmVer)
putStrLn startupMessage
httpServe (config (port cargs)) $
serveElm
<|> route [ ("socket", socket) ]
Expand All @@ -73,10 +69,9 @@ main =
<|> error404


startupMessage :: String -> String
startupMessage elmVer =
"Elm Reactor " ++ Version.showVersion version ++ ", backed by version " ++
filter (/= '\n') elmVer ++ " of the compiler."
startupMessage :: String
startupMessage =
"Elm Reactor " ++ Version.showVersion version


directoryConfig :: MonadSnap m => DirectoryConfig m
Expand Down

0 comments on commit d3bc436

Please sign in to comment.