diff options
Diffstat (limited to 'users/grfn/xanthous/app/Main.hs')
| -rw-r--r-- | users/grfn/xanthous/app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/users/grfn/xanthous/app/Main.hs b/users/grfn/xanthous/app/Main.hs index 6d88405fd9e0..e67ad4ac9992 100644 --- a/users/grfn/xanthous/app/Main.hs +++ b/users/grfn/xanthous/app/Main.hs @@ -113,9 +113,9 @@ newGame rparams = do loadGame :: FilePath -> IO () loadGame saveFile = do - gameState <- maybe (die "Invalid save file!") pure - =<< Game.loadGame . fromStrict <$> readFile @IO saveFile - gameState `deepseq` runGame LoadGame gameState + gameState <- maybe (die "Invalid save file!") pure . Game.loadGame . fromStrict + =<< readFile @IO saveFile + gameState `deepseq` runGame (LoadGame saveFile) gameState runGame :: RunType -> Game.GameState -> IO () runGame rt gameState = do |