From 947cf5064cda246291b3b5bc85051a229b0efb04 Mon Sep 17 00:00:00 2001
From: Eckhard Maass <eckhard.s.maass@googlemail.com>
Date: Sun, 4 Sep 2016 13:35:12 +0200
Subject: [PATCH] Add different decks to cli.

---
 Magic-CLI/src/Main.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Magic-CLI/src/Main.hs b/Magic-CLI/src/Main.hs
index 6e56a94..dda4e55 100644
--- a/Magic-CLI/src/Main.hs
+++ b/Magic-CLI/src/Main.hs
@@ -7,8 +7,10 @@ import Magic.M13
 import Magic.AvacynRestored
 
 import Data.Monoid ((<>))
+import Data.Maybe (fromMaybe, listToMaybe)
 
 import System.IO
+import System.Environment
 
 redDeck :: Deck
 redDeck = replicate 18 mountain <> replicate 21 bloodArtist <> replicate 21 searingSpear
@@ -24,7 +26,14 @@ whiteDeck = replicate 24 plains
          -- <> replicate 4 captain'sCall
          -- <> replicate 4 divineFavor
 
+planarCleaninsingDeck :: Deck
+planarCleaninsingDeck = replicate 15 planarCleansing <> replicate 15 pillarfieldOx <> replicate 15 tormod'sCrypt
+
+decks = [("planarCleaninsingDeck", planarCleaninsingDeck), ("whiteDeck", whiteDeck)]
+
 main :: IO ()
 main = do
+  args <- getArgs
+  let secondDeck = fromMaybe whiteDeck $ listToMaybe args >>= (flip lookup) decks
   hSetBuffering stdout NoBuffering
-  runGame [redDeck, whiteDeck]
+  runGame [redDeck, secondDeck]