Skip to content
Browse files

clean up warnings

  • Loading branch information...
1 parent b66bea4 commit 0a8116a77e9abded8af1d16b8987cf7ee62f5dfd Brent Yorgey committed Apr 21, 2012
Showing with 10 additions and 18 deletions.
  1. +10 −18 src/Diagrams/Backend/Canvas.hs
28 src/Diagrams/Backend/Canvas.hs
@@ -16,32 +16,24 @@ module Diagrams.Backend.Canvas
, Options(..) -- for rendering options specific to Canvas
) where
-import qualified Graphics.Rendering.Canvas as C
-import qualified Graphics.Blank as BC
-import Diagrams.Prelude
-import Graphics.Rendering.Diagrams.Transform
-import Diagrams.TwoD.Shapes
-import Diagrams.TwoD.Adjust (adjustDia2D, adjustSize)
-import Control.Monad (when)
-import Data.Maybe (catMaybes)
+import Control.Monad (when)
+import qualified Data.Foldable as F
+import Data.Maybe (catMaybes)
+import Data.Typeable
-import Data.VectorSpace
+import Diagrams.Prelude
+import Diagrams.TwoD.Adjust (adjustDia2D)
+import qualified Graphics.Blank as BC
+import qualified Graphics.Rendering.Canvas as C
-import Data.Monoid
-import qualified Data.Foldable as F
-import Data.Typeable
-- | This data declaration is simply used as a token to distinguish this rendering engine.
data Canvas = Canvas
deriving Typeable
instance Monoid (Render Canvas R2) where
mempty = C $ return ()
- (C r1) `mappend` (C r2) = C (r1 >> r2)
+ (C c1) `mappend` (C c2) = C (c1 >> c2)
instance Backend Canvas R2 where
data Render Canvas R2 = C (C.Render ())
@@ -53,7 +45,7 @@ instance Backend Canvas R2 where
withStyle _ s t (C r) = C $ do
C.withStyle (canvasTransf t) (canvasStyle s) r
- doRender _ (CanvasOptions size) (C r) = C.doRender r
+ doRender _ (CanvasOptions _) (C r) = C.doRender r
adjustDia c opts d = adjustDia2D canvasSize setCanvasSize c opts
(d # reflectY # fcA transparent)

0 comments on commit 0a8116a

Please sign in to comment.
Something went wrong with that request. Please try again.