Commit a49801ef authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Whitespace.

parent a7469b85
...@@ -392,6 +392,3 @@ readS_to_P :: ReadS a -> ReadP r a ...@@ -392,6 +392,3 @@ readS_to_P :: ReadS a -> ReadP r a
-- parser, and therefore a possible inefficiency. -- parser, and therefore a possible inefficiency.
readS_to_P r = readS_to_P r =
R (\k -> Look (\s -> final [bs'' | (a,s') <- r s, bs'' <- run (k a) s'])) R (\k -> Look (\s -> final [bs'' | (a,s') <- r s, bs'' <- run (k a) s']))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment