Yesod, WebSockets и Persistent

Question

Я пытаюсь реализовать сервер для пошаговой игры в Haskell. Мой выбор заключается в использовании Yesod для администрирования и метаинформации (например, в каких играх участвует пользователь и т. Д.).

Я хотел бы использовать веб-сокеты, чтобы поддерживать вложенные в игру данные накладными.

Глядя на пример ws-chat, я не уверен, как получить доступ к обработчику Monad и с ним Persistent.

Было бы неплохо иметь некоторый бухгалтерский код для соединений, обернутых вокруг «нормального» обработчика, который сам обновляет базу данных и информирует соответствующих пользователей.

Answer 1

Вот как я думаю, он должен выглядеть.

{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell, OverloadedStrings, GADTs, FlexibleContexts #-} 
module Main where 
import Control.Monad.IO.Class (liftIO) 
import Data.String (fromString) 
import Database.Persist 
import Database.Persist.TH 
import Database.Persist.Sqlite 
import Network.Wai.Application.Static (staticApp, defaultWebAppSettings, defaultFileServerSettings) 
import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsIntercept, settingsPort) 
import Network.Wai.Handler.WebSockets (intercept) 
import qualified Network.WebSockets as WS 

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistUpperCase| 
Person 
    name String 
    age Int 
    deriving Show 
|] 

ws :: WS.Request -> WS.WebSockets WS.Hybi10() 
ws r = do 
    WS.acceptRequest r 
    liftIO $ runSqlite ":memory:" $ do 
     runMigration migrateAll 
     michaelId <- insert $ Person "Michael" 26 
     michael <- get michaelId 
     liftIO $ print michael 

main :: IO() 
main = runSettings defaultSettings 
    { settingsPort = 9160 
    , settingsIntercept = intercept $ ws 
    } $ staticApp (defaultFileServerSettings $ fromString ".") 

Answer 2

Если вы ищете, чтобы использовать монаду Handler, вы можете использовать runFakeHandler.