chu2-2012.11.18: src/Chu2/Handler/SnapServerFFI.hs

module Chu2.Handler.SnapServerFFI where
  
import Chu2.FFI
import Chu2.Interface.Hack2
import qualified Hack2.Handler.SnapServer as Snap
import Data.Default
import qualified Hack2 as Hack2


onPort_run :: Integer -> Application -> IO ()
onPort_run port app = 
  Snap.runWithConfig 
    def {Snap.port = fromIntegral port} 
    (chu2ApplicationToHack2Application app)