diff --git a/Parser/Meshparser.hs b/Parser/Meshparser.hs
index 06d51d4..9b61f0b 100644
--- 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