Add explicit layer datatype

src/Dodge/Creature/Picture.hs

@@ -13,7 +13,7 @@ module Dodge.Creature.Picture
 import Dodge.Data
 --import Dodge.Base
 import Dodge.Creature.Test
-import Dodge.Render.InfoBox
+--import Dodge.Render.InfoBox
 import Dodge.Render.List
 --import Dodge.Creature.AlertLevel.Data
 --import Dodge.Picture.Layer
@@ -87,7 +87,7 @@ crDisplayInfo cfig w cr = (_crPos cr,
     crOnScreen = pointOnScreen cfig w $ _crPos cr
 
 creatureDisplayText :: Configuration -> World -> Creature -> Picture
-creatureDisplayText cfig w cr = setLayer 4 . setDepth 50 
+creatureDisplayText cfig w cr = setLayer FixedCoordLayer . setDepth 50 
     $ color white $ renderListAt 0 0 cfig $ zip ["TEST","ME"] $ repeat white
     -- $ renderInfoListAt 0 0 cfig w
     -- $ crDisplayInfo cfig w cr
@@ -96,7 +96,7 @@ creatureDisplayText' :: Configuration -> World -> Creature -> Picture
 creatureDisplayText' cfig w cr 
   | not (_debug_cr_status cfig) = []
   | otherwise
-    = setLayer 4 
+    = setLayer TopLayer 
     . setDepth 50 
     . translate x y 
     . color white