Yesod, WebSockets e persistente

Question

Sto cercando di implementare un server per un gioco a turni in Haskell. La mia scelta sarebbe quella di utilizzare Yesod per l'amministrazione e le meta-informazioni (ad esempio, a quali giochi partecipa un utente e così via).

Mi piacerebbe utilizzare le prese per mantenere piccoli i dati in gioco.

Guardando all'esempio di ws-chat, non sono sicuro di come accedere al Gestore Monad e con esso Persistente.

Sarebbe perfetto avere un codice contabile per le connessioni avvolto attorno a un gestore "normale" che aggiorna il database e informa gli utenti pertinenti.

Answer 1

Questo è come penso dovrebbe essere.

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

Se stai cercando di eseguire da solo una monade Handler, puoi utilizzare runFakeHandler.