Use JSON as save format

src/Dodge/Data/ActionPlan.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE DeriveGeneric #-}

src/Dodge/Data/WorldEffect.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE DeriveGeneric #-}
 module Dodge.Data.WorldEffect where

src/Dodge/Save.hs

@@ -7,8 +7,10 @@ module Dodge.Save
     , readSaveSlot
     ) where
 import Dodge.Data
-
+import Data.Aeson
-import Text.Read (readMaybe)
+import qualified Data.Aeson.Encode.Pretty as AEP
+import qualified Data.ByteString.Lazy as BS
+--import Text.Read (readMaybe)
 import qualified Data.Map.Strict as M
 --import Data.Maybe
 import Control.Lens
@@ -18,24 +20,31 @@ import System.Directory
 writeSaveSlot :: SaveSlot -> Universe -> IO ()
 writeSaveSlot ss u = do
     createDirectoryIfMissing True "saveSlot"
-    writeFile (saveSlotPath ss) (show $ u ^. uvWorld . cWorld)
+    BS.writeFile (saveSlotPath ss) 
-
+        $ AEP.encodePretty' 
-saveSlotPath :: SaveSlot -> String
+            (AEP.Config (AEP.Spaces 2) compare AEP.Generic False) 
-saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i
+            (u ^. uvWorld . cWorld)
-saveSlotPath QuicksaveSlot = "saveSlot/QuickSave"
+    --writeFile (saveSlotPath ss) (show $ u ^. uvWorld . cWorld)
-saveSlotPath LevelStartSlot = "saveSlot/LevelStartSave"
 
 readSaveSlot :: SaveSlot -> Universe -> IO Universe
 readSaveSlot ss uv = do
     fExists <- doesFileExist $ saveSlotPath ss
     if fExists
     then do
-        cwstr <- readFile $ saveSlotPath ss
+        --cwstr <- readFile $ saveSlotPath ss
-        case readMaybe cwstr of
+        --case readMaybe cwstr of
+        cwstr <- decodeFileStrict $ saveSlotPath ss
+        case cwstr of
             Nothing -> putStrLn "loadSaveSlot failed to read saved file" >> return uv
             Just cw -> return $ uv & uvWorld . cWorld .~ cw
     else putStrLn "loadSaveSlot failed to find saved file" >> return uv
 
+saveSlotPath :: SaveSlot -> String
+saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i
+saveSlotPath QuicksaveSlot = "saveSlot/QuickSave"
+saveSlotPath LevelStartSlot = "saveSlot/LevelStartSave"
+
+
 saveWorldInEmptySlot :: SaveSlot -> Universe -> Universe
 saveWorldInEmptySlot slot w = case M.lookup slot $ _savedWorlds w of
     Nothing -> w & savedWorlds %~ M.insert slot (clearKeys (_uvWorld w))

src/Geometry/Data.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {- |
 WARNING: orphan instances concerning Aeson classes and Linear.Vx datatypes have been introduced.

src/IntMapHelp.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE StandaloneDeriving #-}
+--{-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {- |

src/Picture/Data.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Picture.Data

src/Quaternion.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE StandaloneDeriving #-}
+--{-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE DeriveGeneric #-}
+--{-# LANGUAGE DeriveGeneric #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {- |
 WARNING: orphan instances concerning Aeson classes and Linear.Quaternion datatypes have been introduced.