Skip to content
Browse files

Mark writePng unused (prefix with _)

  • Loading branch information...
1 parent bf20c6e commit b9e58fb41e161aac7cebbebfd65e607c278f4b16 @kfish committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/cairo-appbase.hs
View
4 src/cairo-appbase.hs
@@ -18,8 +18,8 @@ windowWidth = 500
windowHeight = 500
-- Write image to file
-writePng :: IO ()
-writePng =
+_writePng :: IO ()
+_writePng =
C.withImageSurface C.FormatARGB32 width height $ \ result -> do
C.renderWith result $ example width height
C.surfaceWriteToPNG result "Draw.png"

0 comments on commit b9e58fb

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