Hlint, cleanup

2026-03-30 09:29:50 +01:00
parent 1919757fca
commit 4598deb70f
8 changed files with 59 additions and 47 deletions
@@ -61,8 +61,12 @@ rightHandPQ cr
    | oneH cr = (V3 11 (-3) 20, Q.qID)
    | twists cr = (V3 0 5 20, Q.qz (-1)) `Q.comp` (V3 4 (-10) 0, Q.qID)
    | twoFlat cr = (V3 4 (-8) 12, Q.qID)
+--    | wl <- crRightHandWall cr = (0, Q.qID)
    | otherwise = (handWalkingPos LeftForward (-8) cr, Q.qID)

+--crRightHandWall :: IM.IntMap Wall -> Creature -> Wall
+--crRightHandWall wls cr
+
 translateToRightHand :: Creature -> SPic -> SPic
 translateToRightHand = overPosSP . translatePointToRightHand