Tweak pause camera movement

src/Dodge/Save.hs

@@ -10,6 +10,7 @@ module Dodge.Save (
 ) where
 
 
+import Control.Monad
 import Data.Maybe
 import Dodge.WorldLoad
 import Dodge.Path.Translate
@@ -44,8 +45,7 @@ writeSaveSlot ss u = do
 readSaveSlot :: SaveSlot -> IO (Universe -> Maybe Universe)
 readSaveSlot ss = do
     fExists <- doesFileExist $ saveSlotPath ss
-    if not fExists then error "Tried to read non-existant save file"
-        else return ()
+    when (not fExists) $ error "Tried to read non-existant save file"
     mcw <- decodeFileStrict $ saveSlotPath ss
     flip (maybe (error "Tried to read incorrectly encoded save file")) mcw $ \cw ->
         return $ \uv -> Just