Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

clean up warnings

  • Loading branch information...
commit 0a8116a77e9abded8af1d16b8987cf7ee62f5dfd 1 parent b66bea4
Brent Yorgey authored
Showing with 10 additions and 18 deletions.
  1. +10 −18 src/Diagrams/Backend/Canvas.hs
View
28 src/Diagrams/Backend/Canvas.hs
@@ -16,24 +16,16 @@ 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
@@ -41,7 +33,7 @@ data Canvas = Canvas
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)
Please sign in to comment.
Something went wrong with that request. Please try again.