PARSER: improve style

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)        <*>
+              MkParser f                <*>
-                    (char '.')          <*>
+              char '.'                  <*>
-                    (MkParser f)        <|>
+              MkParser f                <|>
-                    (MkParser f))
+              MkParser f
   where
     f xs
       | null ns   = Nothing