DIAGRAM: fix crash when passed an empty array to showConvexHullLines

2014-10-09 17:09:49 +02:00
parent 143d514648
commit 5020778f60
1 changed files with 1 additions and 0 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -112,6 +112,7 @@ showConvexHullPoints = Diag f
 showConvexHullLines :: Diag
 showConvexHullLines = Diag f
  where
+    f _ [] = mempty
    f _ vt
      = (strokeTrail                       .
         fromVertices                      .