@@ -12,7 +12,7 @@ import System.Exit
1212import System.FilePath
1313import System.Process
1414import GHC.IO.Handle
15−import qualified Language.Elm as Elm
15+import qualified Elm.Internal.Paths as ElmPaths
1616import Paths_elm_server
1717
1818runtime = "/elm-runtime.js"
@@ -74,7 +74,7 @@ parse ("--help":_) = putStrLn usage
7474parse ("--version":_) = putStrLn ("The Elm Server " ++ showVersion version)
7575parse args =
7676 if null remainingArgs then
77− serve portNumber =<< elmRuntime
77+ serve portNumber elmRuntime
7878 else
7979 putStrLn usageMini
8080
@@ -86,9 +86,9 @@ parse args =
8686 argValue arg = tail $ dropWhile (/= '=') (head arg)
8787 portNumber = if null portArg then 8000 else read (argValue portArg) :: Int
8888 elmRuntime = if null runtimeArg then
89− Elm.runtime
89+ ElmPaths.runtime
9090 else
91− return $ argValue runtimeArg
91+ argValue runtimeArg
9292
9393usageMini :: String
9494usageMini =