Clear all warnings

src/Picture/Data.hs

@@ -4,14 +4,14 @@ 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 Control.Lens
-import Control.Monad 
+--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 Control.Lens
+--import Control.Monad 
 
 data RenderType
     = RenderPoly [(Point3,Point4)]
@@ -58,8 +58,11 @@ instance Functor (RTree a) where
     fmap f (RBranches i ts) = RBranches i $ fmap (fmap f) ts
     fmap f (RLeaf x)      = RLeaf (f x)
 
-flat2 (x,y)     = [x,y]
-flat3 (x,y,z)   = [x,y,z]
+flat2 :: (a,a) -> [a]
+flat2 (x,y) = [x,y]
+flat3 :: (a,a,a) -> [a]
+flat3 (x,y,z) = [x,y,z]
+flat4 :: (a,a,a,a) -> [a]
 flat4 (x,y,z,w) = [x,y,z,w]
 {-# INLINE flat2 #-}
 {-# INLINE flat3 #-}