main :: IO ()
main = do
  (port, socket) <- openFreePort
  app <- $(serveGhcjs $ BuildConfig {
    mainFile = "Main.hs",
    customIndexFile = Nothing,
    sourceDirs = ["."],
    projectDir = "client",
    projectExec = Stack,
    buildDir = "builds"
  })
  let settings =
        setBeforeMainLoop (do
          print port
          hFlush stdout) $
        defaultSettings
  runSettingsSocket settings socket app
main :: IO ()
main = do
  (port, socket) <- openFreePort
  app <- $(serveGhcjs $ BuildConfig {
    mainFile = "Main.hs",
    customIndexFile = Nothing,
    sourceDirs = ["."],
    projectDir = "client",
    projectExec = Stack,
    buildDir = "builds"
  })
  let settings =
        setBeforeMainLoop (do
          print port
          hFlush stdout) $
        defaultSettings
  runSettingsSocket settings socket app
main = do
  (port, socket) <- openFreePort
  app <- $(serveGhcjs $ BuildConfig {
    mainFile = "Main.hs",
    customIndexFile = Nothing,
    sourceDirs = ["."],
    projectDir = "client",
    projectExec = Stack,
    buildDir = "builds"
  })
  let settings =
        setBeforeMainLoop (do
          print port
          hFlush stdout) $
        defaultSettings
  runSettingsSocket settings socket app