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