Cleanup

2021-11-23 22:33:23 +00:00
parent ddd120dee1
commit 5f6d81bd05
10 changed files with 65 additions and 53 deletions
@@ -23,7 +23,7 @@ addRoomLinkDecorations rms w = w & decorations %~
    IM.insertWithNewKeys (map roomLinkDecorations rms)

 roomLinkDecorations :: Room -> Picture
-roomLinkDecorations rm = pictures . map linkDecoration $ map lnkPosDir $ _rmLinks rm
+roomLinkDecorations rm = pictures . map (linkDecoration . lnkPosDir) $ _rmLinks rm

 linkDecoration :: (Point2,Float) -> Picture
 linkDecoration (p,a) = setLayer 1 . onLayer DebugLayer . color red $ line [p, p +.+ 20 *.* unitVectorAtAngle (a - pi/2)]