PARSER: improve style
Dieser Commit ist enthalten in:
Ursprung
70665e4b29
Commit
9c724ec479
|
@ -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
|
||||
|
|
Laden…
In neuem Issue referenzieren