Hlinting

src/Picture/Tree.hs

@@ -8,6 +8,7 @@ import Geometry
 
 import Data.Bifunctor
 import Data.List
+import Data.Maybe (isNothing)
 
 -- todo: refactor out the layer check somehow
 -- consider generalising to alternative rather than using LTree
@@ -48,14 +49,14 @@ picToLTree j (OverPic f f' r f'' (OverPic g g' s g'' pic))
 picToLTree j (OverPic f f' r f'' (Pictures ps)) 
     = LBranches (map (picToLTree j . OverPic f f' r f'') ps)
 picToLTree j (OverPic f f' r f'' pic) 
-    = (overPos f . overSca f' . overRot r . overCol f'') <$> picToLTree j pic
+    = overPos f . overSca f' . overRot r . overCol f'' <$> picToLTree j pic
 picToLTree (Just j) (OnLayer i pic) | j == i = picToLTree Nothing pic
                                     | otherwise = LBranches []
 picToLTree Nothing  (OnLayer _ pic) = picToLTree Nothing pic
 
 filtB :: Maybe Int -> Int -> LTree RenderType -> LTree RenderType
 {-# INLINE filtB #-}
-filtB mx i t | Just i == mx || Nothing == mx = t
+filtB mx i t | Just i == mx || isNothing mx = t
              | otherwise                     = LBranches []
 
 doubleLine :: [a] -> [a]