Move main to allow for new executables

src/Dodge/Creature/Picture.hs

@@ -33,7 +33,7 @@ basicCrPict col cr w
         targetingPic ++
         [ tr . setDepth 0 $ color yellow $ circleSolid 10
         , tr . piercingMod $ bluntScale $ naked col cr
-        , tr $ torso (light4 col) (V2 (0) (-crad)) (V2 0 crad)
+        , tr $ torso (light4 col) (V2 0 (-crad)) (V2 0 crad)
         , trFeet $ feet cr
         , tr $ arms col cr
         , tr $ drawEquipment cr
@@ -104,7 +104,7 @@ arms col cr
 
 torso :: Color -> Point2 -> Point2 -> Picture
 torso col x y = color col $ pictures
-    [ poly3 [addZ 20 x, addZ 12 v, addZ 12 ((V2 0 0) -.- v), addZ 20 y]
+    [ poly3 [addZ 20 x, addZ 12 v, addZ 12 (V2 0 0 -.- v), addZ 20 y]
     , setDepth 12 . rotate a . scale 1 1 $ circleSolid $ magV v
     ]
   where
@@ -171,7 +171,7 @@ drawEquipment cr = pictures $ map f $ IM.toList (_crInv cr)
         _      -> blank
 
 circLine :: Float -> Picture
-circLine x = line [(V2 0 0),(V2 x 0)]
+circLine x = line [V2 0 0,V2 x 0]
 
 picAtCrPos :: Picture -> Creature -> World -> Picture
 {-# INLINE picAtCrPos #-}