Fix incorrect creation of unused links pos

src/Dodge/LevelGen/Data.hs

@@ -50,7 +50,7 @@ data PlacementSpot
         , _psRandShift :: (Point2,Float) -> PlacementSpot
         }
 data Placement 
-    = Placement 
+    = Placement
         { _plSpot   :: PlacementSpot
         , _plType   :: PSType
         , _plMID    :: Maybe Int
@@ -207,7 +207,8 @@ psj ps pst plmnt = Placement ps pst Nothing (const $ Just plmnt)
 
 -- the NoShiftCont is necessary when shifting then combining rooms
 ps0jPushPS :: PSType -> Placement -> Placement
-ps0jPushPS pst plmnt = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing (\p -> Just $ plmnt & plSpot .~ _plSpot p)
+ps0jPushPS pst plmnt = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing 
+    $ \p -> Just $ plmnt & plSpot .~ _plSpot p
 
 addPlmnt :: Placement -> Placement -> Placement
 addPlmnt pl pl2 = case pl2 of