Allow for concurrent effects

2022-08-16 16:02:09 +01:00
parent 919a179283
commit 26e88f059a
14 changed files with 181 additions and 53 deletions
@@ -0,0 +1,13 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.SaveSlot where
+import Control.Lens
+
+data SaveSlot
+    = QuicksaveSlot
+    | LevelStartSlot Int
+    | SaveSlotNum Int
+    deriving (Eq, Ord, Show, Read)
+
+makeLenses ''SaveSlot