Linting

src/Picture/Data.hs

@@ -1,25 +1,18 @@
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 --{-# LANGUAGE Strict #-}
 module Picture.Data
     where
+import Geometry.Data
 
 import Data.Monoid
+import Data.Traversable
 import qualified Data.Foldable as F
 import qualified Data.Sequence as Se
 import qualified Data.DList as DL
 import qualified Data.Vector as V
-import Geometry.Data
-
 import Control.Lens
-
---import Foreign
-
---import Graphics.Rendering.OpenGL hiding (Point (..),translate,scale,imageHeight,imageWidth)
-
 import Control.Monad 
 
-import Data.Traversable
-
 data RenderType
     = RenderPoly [(Point3,Point4)]
     | RenderBezQ [(Point3,Point4,Point4)]
@@ -42,6 +35,7 @@ instance Foldable FTree where
     foldMap g (FLeaf x) = g x
     {-# INLINE foldMap #-}
 
+{- Tree with values at and only at the leaves. -}
 data LTree a
     = LBranches [LTree a]
     | LLeaf a
@@ -50,7 +44,7 @@ instance Foldable LTree where
     foldMap g (LLeaf a) = g a
     {-# INLINE foldMap #-}
 instance Functor LTree where
-    fmap f (LBranches ts) = LBranches $ (fmap (fmap f)) ts
+    fmap f (LBranches ts) = LBranches $ fmap (fmap f) ts
     fmap f (LLeaf x) = LLeaf (f x)
 
 data RTree a b
@@ -61,7 +55,7 @@ instance Foldable (RTree a) where
     foldMap g (RLeaf x)      = g x
     {-# INLINE foldMap #-}
 instance Functor (RTree a) where
-    fmap f (RBranches i ts) = RBranches i $ (fmap (fmap f)) ts
+    fmap f (RBranches i ts) = RBranches i $ fmap (fmap f) ts
     fmap f (RLeaf x)      = RLeaf (f x)
 
 flat2 (x,y)     = [x,y]