Style

2014-10-10 17:40:25 +02:00
parent 6e4c7e47c2
commit 954b104642
2 changed files with 2 additions and 1 deletions
--- a/Parser/Meshparser.hs
+++ b/Parser/Meshparser.hs
@@ -13,7 +13,7 @@ import Parser.Core
 meshToArr :: String   -- ^ the string to convert
          -> [PT]     -- ^ the resulting vertice table
 meshToArr xs =
-  fmap (p2)                       .
+  fmap p2                         .
    fmap (\(Just (x, _)) -> x)    .
    filter (/= Nothing)           .
    fmap (runParser parseVertice) .