DIAG: filter valid points earlier

This saves us some code duplication.
2014-11-16 16:44:26 +01:00
parent 8c1d54d97a
commit 562fdbe26f
3 changed files with 29 additions and 29 deletions
--- a/Graphics/Diagram/Gif.hs
+++ b/Graphics/Diagram/Gif.hs
@@ -34,4 +34,4 @@ gifDiag p xs =
 -- |Same as gifDiag, except that it takes a string containing the
 -- mesh file content instead of the the points.
 gifDiagS :: DiagProp -> MeshString -> [(Diagram Cairo R2, GifDelay)]
-gifDiagS p = gifDiag p . meshToArr
+gifDiagS p = gifDiag p . filterValidPT p . meshToArr