From 9c724ec4791ee3abdefe795bb83f18cfdc1702a7 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 9 Oct 2014 16:59:09 +0200
Subject: [PATCH] PARSER: improve style

---
 Parser/Core.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Parser/Core.hs b/Parser/Core.hs
index 54cacf6..2e5ca2a 100644
--- a/Parser/Core.hs
+++ b/Parser/Core.hs
@@ -69,12 +69,12 @@ posInt = MkParser f
 
 -- |Creates a Parser that accepts positive integers.
 posDouble :: Parser Double
-posDouble = read <$> (
+posDouble = (read <$>)                   $
               (\x y z -> x ++ [y] ++ z) <$>
-                    (MkParser f)        <*>
-                    (char '.')          <*>
-                    (MkParser f)        <|>
-                    (MkParser f))
+              MkParser f                <*>
+              char '.'                  <*>
+              MkParser f                <|>
+              MkParser f
   where
     f xs
       | null ns   = Nothing