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

PARSER: eta reduction

Browse Source
This commit is contained in:
hasufell 2014-10-10 17:48:22 +02:00
parent 954b104642
commit 085b06a112
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Parser/Meshparser.hs
View File

@ -12,13 +12,12 @@ import Parser.Core
-- an array of float tuples. -- an array of float tuples.
meshToArr :: String -- ^ the string to convert meshToArr :: String -- ^ the string to convert
-> [PT] -- ^ the resulting vertice table -> [PT] -- ^ the resulting vertice table
meshToArr xs = meshToArr =
fmap p2 . fmap p2 .
fmap (\(Just (x, _)) -> x) . fmap (\(Just (x, _)) -> x) .
filter (/= Nothing) . filter (/= Nothing) .
fmap (runParser parseVertice) . fmap (runParser parseVertice) .
lines $ lines
xs
-- | Creates a Parser that accepts a single vertice, such as 'v 1.0 2.0'. -- | Creates a Parser that accepts a single vertice, such as 'v 1.0 2.0'.