Cleanup

src/Dodge/Room/Tutorial.hs

@@ -48,11 +48,11 @@ tutAnoTree =
         --        , AnTree $ tutDrop
         [ AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , AnTree corDoor
-        , AnTree $ tutRooms
+        , AnTree tutRooms
         , AnTree corDoor
         , AnTree $ tToBTree "critroom" <$> weaponBehindPillar
         , AnTree corDoor
-        , AnTree $ tutDrop
+        , AnTree tutDrop
         , AnTree $ return $ tToBTree "cor" $ return $ cleatOnward corridor
         ----        , AnTree $ pickupTut
         ----        , AnTree $ weaponTut
@@ -95,12 +95,12 @@ tutRooms = do
     i <- nextLayoutInt
     j <- nextLayoutInt
     x <-
-        shuffleLinks =<< analyserByDoorWithPrompt sensorTut (RequireEquipment (AMMOMAG DRUMMAG)) i
-            <$> addDoorAtNthLinkToggleTerminal 1 ss j
+        shuffleLinks . analyserByDoorWithPrompt sensorTut (RequireEquipment (AMMOMAG DRUMMAG)) i
+            =<< addDoorAtNthLinkToggleTerminal 1 ss j
             <$> roomNgon 6 100
     bcor <- blockedCorridor
-    r1 <- (r burstRifle) <&> rmPmnts .:~ t
-    r2 <- (r (drumMag & itConsumables ?~ 500))
+    r1 <- r burstRifle <&> rmPmnts .:~ t
+    r2 <- r (drumMag & itConsumables ?~ 500)
     return $
         tToBTree "DoorTest" $
             Node