unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-14 07:51:12 +03:00
Code Issues Projects Releases Wiki Activity

drop leading and trailing whitespace from doc blocks

Browse Source
This commit is contained in:
Paul Chiusano 2019-11-04 10:20:12 -05:00
parent 823d8be1e4
commit 76e2cb48a0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
parser-typechecker/src/Unison/Lexer.hs
View File

@ -479,8 +479,9 @@ lexer0 scope rem =
Right Nothing -> Token (Err UnknownLexeme) pos pos : recover l pos rem Right Nothing -> Token (Err UnknownLexeme) pos pos : recover l pos rem
Left e -> Token (Err e) pos pos : recover l pos rem Left e -> Token (Err e) pos pos : recover l pos rem
lexDoc l pos rem = case rem of lexDoc l pos rem = case span isSpace rem of
_ -> docBlob l pos rem pos [] (spaces,rem) -> docBlob l pos' rem pos' []
where pos' = incBy spaces pos
docBlob l pos rem blobStart acc = case rem of docBlob l pos rem blobStart acc = case rem of
'@' : (hqToken (inc pos) -> Just (tok, rem)) -> '@' : (hqToken (inc pos) -> Just (tok, rem)) ->
@ -501,7 +502,8 @@ lexer0 scope rem =
docBlob l pos' rem pos' [] docBlob l pos' rem pos' []
':' : ']' : rem -> ':' : ']' : rem ->
let pos' = inc . inc $ pos in let pos' = inc . inc $ pos in
(if null acc then id else (Token (Textual (reverse acc)) blobStart pos :)) $ (if null acc then id
else (Token (Textual (reverse $ dropWhile isSpace acc)) blobStart pos :)) $
Token Close pos pos' : goWhitespace l pos' rem Token Close pos pos' : goWhitespace l pos' rem
[] -> recover l pos rem [] -> recover l pos rem
ch : rem -> docBlob l (incBy [ch] pos) rem blobStart (ch:acc) ch : rem -> docBlob l (incBy [ch] pos) rem blobStart (ch:acc)