39 lines
892 B
Haskell
39 lines
892 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
module Session (
|
|
State(..)
|
|
, initial
|
|
, store
|
|
) where
|
|
|
|
import Config (libDir)
|
|
import Data.Map (Map)
|
|
import qualified Data.Map as Map (empty)
|
|
import Hanafuda.KoiKoi (GameID, PlayerID)
|
|
import qualified Hanafuda.Message as Message (PublicGame)
|
|
import System.Directory (createDirectoryIfMissing, doesFileExist)
|
|
import System.FilePath ((</>))
|
|
|
|
data State =
|
|
New
|
|
| Connected {
|
|
playerID :: PlayerID
|
|
, games :: Map GameID Message.PublicGame
|
|
}
|
|
deriving Show
|
|
|
|
stateFile :: FilePath
|
|
stateFile = libDir </> "state"
|
|
|
|
initial :: IO State
|
|
initial = do
|
|
createDirectoryIfMissing True libDir
|
|
fileExists <- doesFileExist stateFile
|
|
if fileExists
|
|
then do
|
|
playerID <- read <$> readFile stateFile
|
|
return $ Connected {playerID, games = Map.empty}
|
|
else return New
|
|
|
|
store :: PlayerID -> IO ()
|
|
store = writeFile stateFile . show
|