PARSER: simplify

2015-01-09 04:05:04 +01:00 · 2015-01-09 04:05:04 +01:00 · d0e155d7c1
commit d0e155d7c1
parent 8058a43ee4
1 changed files with 1 additions and 2 deletions
--- a/Parser/Meshparser.hs
+++ b/Parser/Meshparser.hs
@ -13,10 +13,9 @@ import Diagrams.TwoD.Types
 -- |Convert a text String with multiple vertices and faces into
 -- a list of vertices, ordered by the faces specification.
 facesToArr :: B.ByteString -> [[PT]]
-facesToArr str = fmap (fmap (\y -> meshs str !! (fromIntegral y - 1)))
+facesToArr str = fmap (fmap (\y -> meshToArr str !! (fromIntegral y - 1)))
                      (faces str)
  where
-    meshs = meshToArr
    faces = rights . fmap (parseOnly parseFace) . B.lines