run :: Options -> IO ()
run Options{..} = do
  let settings =
        setPort port $
        setBeforeMainLoop (hPutStrLn stderr ("listening on " ++ show port ++ "...")) $
        defaultSettings
  withSystemTempDirectory "serve-ghcjs" $ \ buildDir -> do
    app <- mkDevelopmentApp (BuildConfig mainIs Nothing sourceDirs "." Cabal buildDir)
    runSettings settings app
run :: Options -> IO ()
run Options{..} = do
  let settings =
        setPort port $
        setBeforeMainLoop (hPutStrLn stderr ("listening on " ++ show port ++ "...")) $
        defaultSettings
  withSystemTempDirectory "serve-ghcjs" $ \ buildDir -> do
    app <- mkDevelopmentApp (BuildConfig mainIs Nothing sourceDirs "." Cabal buildDir)
    runSettings settings app
run Options{..} = do
  let settings =
        setPort port $
        setBeforeMainLoop (hPutStrLn stderr ("listening on " ++ show port ++ "...")) $
        defaultSettings
  withSystemTempDirectory "serve-ghcjs" $ \ buildDir -> do
    app <- mkDevelopmentApp (BuildConfig mainIs Nothing sourceDirs "." Cabal buildDir)
    runSettings settings app