Refactor modules

src/Dodge/Room.hs

@@ -226,11 +226,11 @@ roomOctogon = defaultRoom
     poly = [(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]
     lnks = 
         [((0,140),0)
-        ,((35,125),0-pi/4)
+        ,((35,125),negate $ pi/4)
         ,((-35,125),pi/4)
-        ,( (50,90),0-pi/2)
+        ,( (50,90),negate $ pi/2)
         ,( (-50,90),pi/2)
-        ,((35,55),0-3*pi/4)
+        ,((35,55),negate $ 3*pi/4)
         ,((-35,55),3*pi/4)
         ,( (0,40),pi)
         ]
@@ -306,7 +306,7 @@ weaponBetweenPillars :: RandomGen g => State g (Tree (Either Room Room))
 weaponBetweenPillars = do
     wpPos <- takeOne [(x,y) | x <- [20,120,220], y <- [20,120,220]]
     (ps,_) <- takeNMore 2 ([], [(x,y) | x <- [20,220], y <- [20,120,220]])
-    let crPos1 = ps !! 0 
+    let crPos1 = ps !! 0
         crPos2 = ps !! 1
         d p = argV $ (120,120) -.- p
         plmnts =