Crash due to out of memory

[harendra-kumar]

Please to refer to diagrams/diagrams-lib#282 for more details. The following program when used with the rasterific backend makes the program go out of memory and finally getting killed (Linux) or crashing the system (Mac OS X).

{-# LANGUAGE NoMonomorphismRestriction #-}

import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine

main = mainWith (arr :: Diagram B)

arr :: Diagram B
arr = arrowAt' (with & arrowShaft .~ (square 1)) (p2 (0, 0)) (r2 (1, 1))