Hlint pass

src/Dodge/Item/Grammar.hs

@@ -52,10 +52,10 @@ tryAttachItems = leftRightCombine leftIsParentCombine rightIsParentCombine
 itemToBreakLists ::
     Item ->
     ItemStructuralFunction ->
-    ([(ItemStructuralFunction)], [(ItemStructuralFunction)])
+    ([ItemStructuralFunction], [ItemStructuralFunction])
 itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
     (HELD TORCH, _) -> (getAmmoLinks itm, [])
-    (ATTACH UNDERBARRELSLOT, _) -> ([(UnderBarrelPlatformSF)], [])
+    (ATTACH UNDERBARRELSLOT, _) -> ([UnderBarrelPlatformSF], [])
     (_, HeldPlatformSF) ->
         ( getAmmoLinks itm
             <> extraWeaponLinksBelow itm
@@ -181,41 +181,36 @@ type DTComb a = DTree a -> DTree a -> Maybe (DTree a)
 leftIsParentCombine :: DTComb CItem
 leftIsParentCombine ltree rtree = do
     let l = rightChildList ltree
-        xs = dropWhile ((\s -> not $ S.member s (treeToPotentialFunction rtree))) l
-    (sf) <- safeHead xs
+        xs = dropWhile (\s -> not $ S.member s (treeToPotentialFunction rtree)) l
+    sf <- safeHead xs
     return $ ltree & dtRight .:~ ( rtree & dtValue . _2 .~ sf)
 
 rightIsParentCombine :: DTComb CItem
 rightIsParentCombine ltree rtree = do
     let l = leftChildList rtree
-        xs = dropWhile ((\s -> not $ S.member s (treeToPotentialFunction ltree))) l
-    (sf) <- safeHead xs
+        xs = dropWhile (\s -> not $ S.member s (treeToPotentialFunction ltree)) l
+    sf <- safeHead xs
     return $ rtree & dtLeft .:~ ( ltree & dtValue . _2 .~ sf)
 
 leftChildList :: DTree CItem -> [ItemStructuralFunction]
 leftChildList t = foldl' f l (reverse $ t ^.. dtLeft . each . dtValue . _2)
   where
     l = fst $ itemToBreakLists (t ^. dtValue . _1) (t ^. dtValue . _2)
-    f x y = tail $ dropWhile ((/=y) ) x
+    f x y = tail $ dropWhile (/=y) x
 
 rightChildList :: DTree CItem -> [ItemStructuralFunction]
 rightChildList t = foldl' f l (reverse $ t ^.. dtRight . each . dtValue . _2)
   where
     l = snd $ itemToBreakLists (t ^. dtValue . _1) (t ^. dtValue . _2)
-    f x y = tail $ dropWhile ((/=y)) x
+    f x y = tail $ dropWhile (/=y) x
 
-leftRightCombine ::
-    DTComb a ->
-    DTComb a ->
-    DTree a ->
-    DTree a ->
-    Maybe (DTree a)
+leftRightCombine :: DTComb a -> DTComb a -> DTree a -> DTree a -> Maybe (DTree a)
 leftRightCombine f f' t1 t2 = f t1 t2 <|> checkdepth t1 t2
   where
     checkdepth t t'@(DT x ls rs) = fromMaybe (checktop t t') $ do
-        (t'') <- safeHead ls
+        t'' <- safeHead ls
         tx <- checkdepth t t''
-        return $ Just $ DT x (( tx) : tail ls) rs
+        return $ Just $ DT x (tx : tail ls) rs
     checktop t t' = f' t t'
 
 joinItemsInList :: (a -> a -> Maybe a) -> [a] -> [a]