Multiple card sets

1 files changed, 17 insertions, 0 deletions

diff --git a/server/lib/Uplcg/Cards.hs b/server/lib/Uplcg/Cards.hs
new file mode 100644
index 0000000..27d5240
--- /dev/null
+++ b/server/lib/Uplcg/Cards.hs
@@ -0,0 +1,17 @@
+module Uplcg.Cards
+    ( Deck
+    , CardSets
+    , loadCardSets
+    ) where
+
+import qualified Data.HashMap.Strict as HMS
+import qualified Data.Text           as T
+import qualified Data.Yaml           as Yaml
+import           Uplcg.Messages
+
+type Deck = T.Text
+
+type CardSets = HMS.HashMap Deck Cards
+
+loadCardSets :: FilePath -> IO CardSets
+loadCardSets path = Yaml.decodeFileThrow path