[Fencommits] fenfire-hs: need to use closePath to get a sharp corner

[Tuukka Hastrup]

Thu Feb 15 12:54:37 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * need to use closePath to get a sharp corner
diff -rN -u old-fenfire-hs/Cairo.fhs new-fenfire-hs/Cairo.fhs
--- old-fenfire-hs/Cairo.fhs	2007-02-15 12:54:24.000000000 +0200
+++ new-fenfire-hs/Cairo.fhs	2007-02-15 12:54:24.000000000 +0200
@@ -193,7 +193,7 @@
 
 extents :: (Cairo cx r, Monoid (cx Path)) => cx Path
 extents = moveTo (anchor #0 #0) & lineTo (anchor #0 #1) & lineTo (anchor #1 #1)
-        & lineTo (anchor #1 #0) & lineTo (anchor #0 #0)
+        & lineTo (anchor #1 #0) & closePath
         
         
 fromGtkColor :: Gtk.Color -> Color
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-15 12:54:24.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-15 12:54:24.000000000 +0200
@@ -185,7 +185,7 @@
                                     lineTo (point #(w+10) #(0-10)) &
                                     lineTo (point #(w+10) #(h+10)) &
                                     lineTo (point #(0-10) #(h+10)) &
-                                    lineTo (point #(0-10) #(0-10))
+                                    closePath
         placeVob $ ownSize $ scale #scale' $ keyVob node $ g $ f $ 
             nodeView graph node