PARSER: improve function names

Graphics/Diagram/Gif.hs

@@ -36,4 +36,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 -> B.ByteString -> [(Diagram Cairo R2, GifDelay)]
-gifDiagS p = gifDiag p . filterValidPT p . meshToArr
+gifDiagS p = gifDiag p . filterValidPT p . meshVertices

Graphics/Diagram/Gtk.hs

@@ -61,8 +61,8 @@ diagS :: DiagProp -> B.ByteString -> Diagram Cairo R2
 diagS p mesh =
   diag p diagAlgos
     . fmap (filterValidPT p)
-    . (\x -> if null x then [meshToArr mesh] else x)
-    . facesToArr
+    . (\x -> if null x then [meshVertices mesh] else x)
+    . meshFaceVertices
     $ mesh
 
 
@@ -72,7 +72,7 @@ diagTreeS :: DiagProp -> B.ByteString -> Diagram Cairo R2
 diagTreeS p mesh =
   diag p diagTreAlgos
     . fmap (filterValidPT p)
-    . (\x -> if null x then [meshToArr mesh] else x)
-    . facesToArr
+    . (\x -> if null x then [meshVertices mesh] else x)
+    . meshFaceVertices
     $ mesh