remove savefile if corrupted (but backup first)

AllureOfTheStars · Mar 23, 2011 · d0e9837 · d0e9837
1 parent f4fa77e
commit d0e9837
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Save.hs b/src/Save.hs
@@ -26,9 +26,9 @@ saveGame state =
 restoreGame :: Config.CP -> IO (Either State String)
 restoreGame config =
   E.catch (do
-             f <- file config
-             (x, z) <- strictDecodeCompressedFile f
              mvBkp config
+             f <- file config
+             (x, z) <- strictDecodeCompressedFile (f ++ ".bkp")
              (z :: Bool) `seq` return $ Left x)
           (\ e -> case e :: IOException of
                     _ -> return (Right $