Hlint pass

2025-07-12 21:45:51 +01:00
parent cab125a1e9
commit 06cf55aa73
5 changed files with 14 additions and 28 deletions
@@ -24,8 +24,8 @@ import ShapePicture
 itemTreeSPic :: DTree CItem -> SPic
 itemTreeSPic (DT (itm,_) l r) = itemSPic itm <> foldMap (itemRotTreeSPic itm) (l <> r)

-itemRotTreeSPic :: Item -> (DTree CItem) -> SPic
-itemRotTreeSPic par ( t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
+itemRotTreeSPic :: Item -> DTree CItem -> SPic
+itemRotTreeSPic par t = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
  where
    (p, q) = orientAttachment par itm
    itm = t ^. dtValue