add some necessary type annotations

diagrams · Apr 21, 2015 · 737906c · 737906c
1 parent deb3022
commit 737906c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/tools/diagrams-builder-rasterific.hs b/src/tools/diagrams-builder-rasterific.hs
@@ -28,9 +28,9 @@ compileExample (Build{..}) = do
 
   createDirectoryIfMissing True dir
 
-  let w = fmap realToFrac width
-      h = fmap realToFrac height
-      bopts = mkBuildOpts Rasterific zero (RasterificOptions (mkSizeSpec2D w h))
+  let w = fmap realToFrac width :: Maybe Float
+      h = fmap realToFrac height :: Maybe Float
+      bopts = mkBuildOpts Rasterific (zero :: V2 Float) (RasterificOptions (mkSizeSpec2D w h))
                 & snippets .~ [f]
                 & imports  .~ [ "Diagrams.Backend.Rasterific" ]
                 & diaExpr  .~ expr