Yesod, WebSockets i Persistent

Question

Próbuję zaimplementować serwer do gry opartej na turach w Haskell. Moim wyborem byłoby użycie Yesod do administrowania i meta-informacji (takich jak gry, w których uczestniczy użytkownik itp.).

Chciałbym używać gniazd internetowych, aby dane w grze nie były niewielkie.

Patrząc na przykład ws-chat, nie jestem pewien, jak uzyskać dostęp do Handler Monad i z nim Trwałe.

Byłoby świetnie mieć kod księgowy dla połączeń owiniętych wokół "normalnego" Handlera, który sam aktualizuje bazę danych i informuje odpowiednich użytkowników.

Answer 1

Tak to powinno wyglądać.

{-# 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

Jeśli chcesz samodzielnie uruchomić monadę Handler, możesz użyć runFakeHandler.