Record whether a mouse click is continued or not

src/Dodge/Save.hs

@@ -9,7 +9,7 @@ import Dodge.Data
 import qualified Data.Map.Strict as M
 --import Data.Maybe
 import Control.Lens
-import qualified Data.Set as S
+--import qualified Data.Set as S
 
 saveWorldInEmptySlot :: SaveSlot -> Universe -> Universe
 saveWorldInEmptySlot slot w = case M.lookup slot $ _savedWorlds w of
@@ -28,7 +28,7 @@ doQuicksave :: Universe -> Universe
 doQuicksave = saveWorldInSlot QuicksaveSlot
 
 clearKeys :: World -> World
-clearKeys = (keys .~ S.empty) . (mouseButtons .~ S.empty)
+clearKeys = (keys .~ mempty) . (mouseButtons .~ mempty)
 
 saveLevelStartSlot :: World -> World
 --saveLevelStartSlot = id