hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PARSER: simplify

Browse Source
This commit is contained in:
hasufell 2015-01-09 04:05:04 +01:00
parent 8058a43ee4
commit d0e155d7c1
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Parser/Meshparser.hs
View File

@ -13,10 +13,9 @@ import Diagrams.TwoD.Types
-- |Convert a text String with multiple vertices and faces into -- |Convert a text String with multiple vertices and faces into
-- a list of vertices, ordered by the faces specification. -- a list of vertices, ordered by the faces specification.
facesToArr :: B.ByteString -> [[PT]] 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) (faces str)
where where
meshs = meshToArr
faces = rights . fmap (parseOnly parseFace) . B.lines faces = rights . fmap (parseOnly parseFace) . B.lines