remove debugging output
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:45:44 +0000 (23:45 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:45:44 +0000 (23:45 +0100)
src/Lseed/Renderer/Cairo.hs

index e343532..0a357c6 100644 (file)
@@ -100,7 +100,6 @@ renderLightedLine (l@((x1,y1),(x2,y2)), _, intensity) = do
        lineTo x2 y2
        let normalized = intensity / lineLength l
        when (normalized > 0) $ do
-               liftIO $ print normalized
                setLineWidth (3*stipeWidth)
                setSourceRGB normalized normalized 0
                strokePreserve