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

run :: Application -> IO ()
run app = Snap.run (chu2ApplicationToHack2Application app)

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