Cleanup warnings

src/Dodge/Data.hs

@@ -1,4 +1,4 @@
-{-
+{- |
 Contains base datatypes that cannot be seperated into 
 different modules because they are interdependent;
 circular imports are probably not a good idea.
@@ -11,11 +11,10 @@ module Dodge.Data
     ( module Dodge.Data
     , module Dodge.Data.DamageType
     , module Dodge.Data.SoundOrigin
-    , Point2 (..)
+    , Point2 
     , Sound (..)
     , soundTime
     ) where
-import Dodge.Picture.Layer.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.AlertLevel.Data
@@ -34,20 +33,14 @@ import qualified DoubleStack as DS
 
 import GHC.Generics
 import Control.Lens
-import Control.Monad.State
 import System.Random
-import Data.Data
 import Data.Graph.Inductive
 import Data.Int (Int16)
 import qualified Data.Set as S
 import qualified Data.IntSet as IS
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
-import qualified Data.DList as DL
 import SDL (Scancode, MouseButton)
-import qualified SDL.Mixer as Mix
-import Graphics.Rendering.OpenGL (PrimitiveMode (..),GLfloat,Program,VertexArrayObject,BufferObject)
-import Codec.Picture (Image,PixelRGBA8)
 data World = World 
     { _keys                 :: !(S.Set Scancode)
     , _mouseButtons         :: !(S.Set MouseButton)
@@ -562,7 +555,7 @@ data Action
         ,_doActionIfElseCondition ::  (World, Creature) -> Bool
         ,_doActionIfElseElseAction :: Action
         }
-    | DoActionWhileThen 
+    | DoActionWhileInterrupt 
         {_doActionWhileThenDo :: Action 
         ,_doActionWhileThenCondition :: (World, Creature) -> Bool
         ,_doActionWhileThenThen :: Action
@@ -667,4 +660,5 @@ numColor 8  = (0,0.5,1,1)
 numColor 9  = (0,1,0.5,1) 
 numColor 10 = (0.5,1,0,1)
 numColor 11 = (1,0.5,0,1)  
-numColor 12 = (1,1,1,1) 
+numColor 12  = (1,1,1,1) 
+numColor _ = (1,1,1,1)