Minor cleanup

src/Dodge/Room/Corridor.hs

@@ -11,7 +11,7 @@ import Dodge.PlacementSpot
 import Geometry
 import Tile
 
-import Data.Bifunctor
+--import Data.Bifunctor
 {- | First exit due north, two other exits at angles next to this.
  Entrance from south.  -}
 corridor :: Room
@@ -35,7 +35,7 @@ corridor = defaultRoom
         ,uncurry inLink ((V2 20 10)    ,pi)
         ]
     lnks =
-        [ ((V2 20 70)  ,0)
+        [ ((V2 20 70)  ,0::Float)
         , ((V2 20 70), pi/6)
         , ((V2 20 70), negate $ pi/6)
         ,((V2 20 10)    ,pi)
@@ -93,7 +93,7 @@ tEast = defaultRoom
     }
   where 
     lnks =
-        [(V2 ( 30) (60),-pi/2)
+        [(V2 ( 30) (60),(-pi/2)::Float)
         ,(V2 (-30) (60),pi/2)
         ,((V2 0 10),pi)
         ]