jsaddle-warp 0.6.0.0 → 0.6.0.1

raw patch · 2 files changed

+5/−3 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• jsaddle-warp.cabal +1/−1
• src/Language/Javascript/JSaddle/Warp.hs +4/−2

@@ -1,5 +1,5 @@ name: jsaddle-warp-version: 0.6.0.0+version: 0.6.0.1 cabal-version: >=1.10 build-type: Simple license: MIT

@@ -18,25 +18,27 @@     run #ifndef ghcjs_HOST_OS   , jsaddleOr+  , jsaddleApp #endif ) where -import Language.Javascript.JSaddle.Types (JSM) #ifndef ghcjs_HOST_OS import Network.Wai.Handler.Warp        (defaultSettings, setTimeout, setPort, runSettings) import Network.WebSockets (defaultConnectionOptions) +import Language.Javascript.JSaddle.Types (JSM) import Language.Javascript.JSaddle.Run (syncPoint) import Language.Javascript.JSaddle.WebSockets (jsaddleOr, jsaddleApp) #endif  -- | Run the given 'JSM' action as the main entry point.  Either directly --   in GHCJS or as a Warp server on the given port on GHC.-run :: Int -> JSM () -> IO () #ifdef ghcjs_HOST_OS+run :: Int -> IO () -> IO () run _port = id #else+run :: Int -> JSM () -> IO () run port f =     runSettings (setPort port (setTimeout 3600 defaultSettings)) $         jsaddleOr defaultConnectionOptions (f >> syncPoint) jsaddleApp