diff --git a/Graphics/DrawingCombinators.hs b/Graphics/DrawingCombinators.hs
--- a/Graphics/DrawingCombinators.hs
+++ b/Graphics/DrawingCombinators.hs
@@ -144,7 +144,7 @@
     GL.lineWidth GL.$= 1.5
     GL.hint GL.LineSmooth GL.$= GL.DontCare
 
-    dRender d identity mempty
+    dRender d identity white
 
 -- |Like 'render', but clears the screen first. This is so
 -- you can use this module and pretend that OpenGL doesn't
@@ -195,7 +195,7 @@
 
 picker :: Renderer -> Picker Any
 picker r tr z = z `seq` do
-    GL.withName (GL.Name z) (r tr mempty)
+    GL.withName (GL.Name z) (r tr white)
     return (z+1, inSet z)
 
 rendererImage :: Renderer -> Image Any
@@ -292,6 +292,8 @@
         γ = a + a' - a * a'
         i | γ == 0    = \_ _ -> 0  -- imples a = a' = 0
           | otherwise = \x y -> (a*x + (1-a)*a'*y)/γ
+
+white = Color 1 1 1 1
 
 -- | Modulate two colors by each other.
 --
diff --git a/graphics-drawingcombinators.cabal b/graphics-drawingcombinators.cabal
--- a/graphics-drawingcombinators.cabal
+++ b/graphics-drawingcombinators.cabal
@@ -4,7 +4,7 @@
     have to go into the deep, dark world of imperative stateful
     programming just to draw stuff.  It supports 2D only (for now),
     with support drawing geometry, images, and text.
-Version: 1.2.0
+Version: 1.2.1
 Stability: experimental
 Synopsis: A functional interface to 2D drawing in OpenGL
 License: BSD3