Allow for hard quitting

2022-11-01 16:48:55 +00:00
parent d982ac728a
commit 7d358fde29
4 changed files with 17 additions and 11 deletions
@@ -41,6 +41,7 @@ data SideEffect
        , _ceString :: String
        }
    | RunningSideEffect {_ceString :: String}
+    | HardQuit

 data OptionScreenFlag = NormalOptions | GameOverOptions | SplashOptions
    deriving (Eq, Ord, Show, Read) --Generic, Flat)