Cleanup warnings

src/Picture/Preload.hs

@@ -1,20 +1,18 @@
 {-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds #-}
 module Picture.Preload
     ( RenderData (..)
     , preloadRender
     , cleanUpRenderPreload
     )
     where
-
 import Picture.Data
 import Shader
-import Geometry (Point2,Point3,Point4)
-
-import Graphics.Rendering.OpenGL hiding (Point (..),translate,scale,imageHeight,imageWidth)
+import Geometry.Data
 
+import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Control.Lens
 import Foreign
-
 import qualified Control.Foldl as F
 
 data RenderData = RenderData
@@ -34,7 +32,6 @@ data RenderData = RenderData
     , _fbo2                     :: (FramebufferObject, TextureObject, RenderbufferObject)
     , _fbo3                     :: (FramebufferObject, TextureObject, RenderbufferObject)
     }
-
 makeLenses ''RenderData
 
 preloadRender :: IO RenderData
@@ -187,7 +184,7 @@ pokeBezQStrat (RenderBezQ vs) = fmap (\((x,y,z),(r,g,b,a),(s,t,u,v)) -> [[x,y,z]
 pokeBezQStrat _ = []
 
 {-# INLINE pokeTriStrat #-}
-pokeTriStrat :: RenderType -> [[[Float]]]
+pokeTriStrat,pokeCharStrat,pokeArcStrat,pokeLineStrat,pokeEllStrat :: RenderType -> [[[Float]]]
 pokeTriStrat (RenderPoly vs) = fmap (\((x,y,z),(r,g,b,a)) -> [[x,y,z],[r,g,b,a]]) vs
 pokeTriStrat _ = []
 
@@ -203,6 +200,7 @@ pokeLineStrat _ = []
 pokeEllStrat (RenderEllipse vs) = fmap (\((x,y,z),(r,g,b,a)) -> [[x,y,z],[r,g,b,a]]) vs
 pokeEllStrat _ = []
 
+vert, geom, frag :: ShaderType
 vert = VertexShader
 geom = GeometryShader
 frag = FragmentShader
@@ -215,4 +213,3 @@ pokeWPColStrat (((x,y),(z,w)),(r,g,b,a)) = [[[x,y,z,w],[r,g,b,a]]]
 
 pokeBGStrat :: a -> [[[Float]]]
 pokeBGStrat = const []
-