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)