Remove whitespace gobbling from annotateLocation
This commit is contained in:
parent
8c55ce604d
commit
6c0683eff3
|
@ -27,7 +27,6 @@ import Prelude hiding (elem)
|
||||||
|
|
||||||
annotateLocation :: Parser a -> Parser (Ann SrcSpan a)
|
annotateLocation :: Parser a -> Parser (Ann SrcSpan a)
|
||||||
annotateLocation p = do
|
annotateLocation p = do
|
||||||
whiteSpace
|
|
||||||
begin <- position
|
begin <- position
|
||||||
res <- p
|
res <- p
|
||||||
end <- position
|
end <- position
|
||||||
|
|
Loading…
Reference in a new issue