Cleanup warnings

src/Dodge/Creature/Picture.hs

@@ -8,7 +8,7 @@ module Dodge.Creature.Picture
 import Dodge.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
-import Dodge.Creature.AlertLevel.Data
+--import Dodge.Creature.AlertLevel.Data
 import Dodge.Picture.Layer
 import Picture
 import Geometry
@@ -52,14 +52,14 @@ basicCrPict col cr = pictures
         Nothing -> False
         Just x  -> x > 5
 
-drawAwakeLevel
-    :: Creature
-    -> Picture
-drawAwakeLevel cr = case cr ^? crAttentionDir of
-    Just (AttentiveTo [0]) -> setPos . color red $ circleSolid 5
-    _        -> setPos . color blue $ circleSolid 5
-  where
-    setPos = translate 0 (_crRad cr)
+--drawAwakeLevel
+--    :: Creature
+--    -> Picture
+--drawAwakeLevel cr = case cr ^? crAttentionDir of
+--    Just (AttentiveTo [0]) -> setPos . color red $ circleSolid 5
+--    _        -> setPos . color blue $ circleSolid 5
+--  where
+--    setPos = translate 0 (_crRad cr)
 
 drawEquipment 
     :: Creature 
@@ -70,4 +70,5 @@ drawEquipment cr = pictures $ map f $ IM.toList (_crInv cr)
         Just g | (cr ^? crStance . posture) == Just Aiming -> g cr i
         _      -> blank
 
+circLine :: Float -> Picture
 circLine x = line [(0,0),(x,0)]