gistfile1.hs

import Yesod.Core
import Yesod.Content
import Data.ByteString (ByteString)
import Network.Wai.Handler.Warp (run)

import System.Posix.Daemonize (CreateDaemon(..), serviced, simpleDaemon)
1import qualified Control.Exception as C
import System.Posix.Syslog (syslog, Priority(Notice, Warning))

data Pong = Pong
mkYesod "Pong" [$parseRoutes|
/ PongR GET
|]

instance Yesod Pong where
    approot _ = ""
    encryptKey _ = return Nothing

getPongR = return $ RepPlain $ toContent ("PONG" :: ByteString)


main = serviced $ simpleDaemon { program = const $ runner
                               , name  = Just "yesod"
                               , user  = Just "radio"
                               , group = Just "radio"}

runner = toWaiAppPlain Pong >>= run 3008