Use strict-containers for IntMaps

src/Dodge/Event/Keyboard.hs

@@ -20,7 +20,7 @@ import LensHelp
 --import Color
 
 --import Data.List
-import qualified Data.IntMap.Strict    as IM
+import qualified IntMapHelp    as IM
 import           Data.Maybe
 import qualified Data.Set              as S
 import           SDL

src/Dodge/Event/Test.hs

@@ -8,7 +8,7 @@ import Dodge.Data
 --import Picture
 --import Geometry
 --
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 --import Control.Lens
 testEvent :: World -> World
 testEvent w = w