yesod

Consider the models: Player name Text nick Text email Text Maybe phone Text Maybe note Textarea Maybe minutes Int Maybe deriving Table name Text game Text pointsHour Int seats Int Maybe description Text Maybe deriving GamingSession start UTCTime end UTCTime Maybe player PlayerId table TableId seat Int Maybe deriving and the function getGamingSessionsR :: Handler RepHtml getGamingSessionsR = do sessions <- runDB $ selectList [GamingSessionEnd ==. Nothing] [Desc GamingSessionTable] defaultLayout $(widgetFile ("opensessions")) how would one go about getting all of the Player names for each of the

I'd like to implement a 'graceful shutdown' command for my webapp (as opposed to my first instinct, which is to just ask people to kill the process) My first two attempts consisted of liftIO exitSuccess E.yield (responseLBS statusOK [G.contentType "text/plain"] "") E.EOF Both of which just cheerfully returned a result to the client and continued listening. Is there anything an application can do to kill the server? Is this even a reasonable thing to want to do? I confess I don't have a very strong understanding of iteratee, only enough to know that I can consume my input and that Iteratee is a

How can I get esqueleto to generate an SQL string from a from statement? The documentation of toRawSql says that "you may just turn on query logging of persistent". I tried all possible forms of MonadLogger that I could understand, but it never printed any SQL. The same documentation also says "manually using this function ... is possible but tedious". However, no constructors of the type, nor any functions returning values of the type, QueryType are exported. I managed to get around this by noticing that QueryType is a newtype and using unsafeCoerce ! I was also forced to provide a Connection

I had made a daemon that used a very primitive form of ipc (telnet and send a String that had certain words in a certain order). I snapped out of it and am now using JSON to pass messages to a Yesod server. However, there were some things I really liked about my design, and I'm not sure what my choices are now. Here's what I was doing: buildManager :: Phase -> IO () buildManager phase = do let buildSeq = findSeq phase jid = JobID $ pack "8" config = MkConfig $ Just jid flip C.catch exceptionHandler $ runReaderT (sequence_ $ buildSeq <*> stages) config -- ^^ I would really like to keep the

I have defined a one-to-many relationship in Persistent but could not figure out how to create a form that can take one of the foreign keys as input. Simplifying my use case to something like this: Person name String Car personId PersonId name Text type Text Now when I try to generate a Form for Car, what should be the field type for personId? I tried something like this but get an error: entryForm :: Maybe Car -> Form Car entryForm car = renderDivs $ Car <$> areq personIdField "Person" Nothing <*> areq textField "Car Name" ( carName <$> car) <*> areq textField "Type" ( carType <$> car) When I