From 8973d30caefcf901fb631aadbd5cd042ab8e1e67 Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Fri, 5 Jan 2018 18:23:47 +0000
Subject: [PATCH] Load from and save to file

---
 app/Main.hs | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index f62ba2e..dba7475 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -10,6 +10,7 @@ import           Data.Char
 import           Data.Time
 import           System.Console.Haskeline
 import           System.Console.Haskeline.History
+import           System.Environment
 import           System.Random.Shuffle
 
 type Input = InputT IO
@@ -194,9 +195,28 @@ run elms = do
     Just x       -> do
       outputStrLn $ "Unknown command " ++ show x ++ ". Try \"help\" for a list of commands."
       run elms
-    -- Maybe save cards?
+
+fromFile :: FilePath -> Input ()
+fromFile filepath = do
+  time <- lift $ getCurrentTime
+  content <- lift $ readFile filepath
+  let maybeElms = parseElementsMaybe time content
+  case maybeElms of
+    Nothing -> outputStrLn $ "Could not parse contents of " ++ show filepath ++ "."
+    Just elms -> do
+      newElms <- run elms
+      toFile filepath newElms
+
+toFile :: FilePath -> Elements -> Input ()
+toFile filepath elms = void $ runMaybeT $ do
+  result <- promptYesNo "Do you want to save the cards?"
+  when result $ do
+    lift $ lift $ writeFile filepath $ elementsToString elms
 
 main :: IO ()
-main = do
-  elms <- runInputT inputSettings $ run testElements
-  putStrLn $ elementsToString elms
+main = runInputT inputSettings $ do
+  name <- lift $ getProgName
+  args <- lift $ getArgs
+  if length args == 1
+    then fromFile (args !! 0)
+    else outputStrLn $ "  USAGE: " ++ name ++ " <cards file>"