empty file parsing error fixed

This commit is contained in:
Dmitry Zuikov 2023-02-09 15:48:34 +03:00
parent 10ecda6a31
commit 995e1cd52c
5 changed files with 39 additions and 1 deletions

View File

@ -1,4 +1,11 @@
## 2023-02-09
TODO: implement-regression-tests
54377068aac95cbfd8c69177a101c434feecff41
## 2023-02-07 ## 2023-02-07
Для fixme нам нужны конфиги. Стандартые конфиги это, в основном, треш, Для fixme нам нужны конфиги. Стандартые конфиги это, в основном, треш,

View File

@ -163,7 +163,10 @@ parseSyntax = parse (merely (syntax sc)) "input"
top :: forall c . MegaConstraints c => Parser [Syntax c] top :: forall c . MegaConstraints c => Parser [Syntax c]
top = do top = do
sc sc
many topStmt many $ do
t <- topStmt
sc
pure t
topTerm :: forall c . MegaConstraints c => Parser (Syntax c) topTerm :: forall c . MegaConstraints c => Parser (Syntax c)
topTerm = do topTerm = do

23
t/fixme-config-1 Normal file
View File

@ -0,0 +1,23 @@
;; fixme config file
fixme-comments // # --
fixme-prefix FIXME: bugs issues
fixme-prefix TODO: bugs issues
fixme-files **/*.hs
fixme-files doc/devlog
fixme-files-ignore .direnv/** dist-newstyle/**
fixme-id-show-len 10
; fixme-tag-prefix #
fixme-list-full-row-pref "## "
fixme-list-full-row-suff "\n\n;;;"

4
t/fixme-log Normal file
View File

@ -0,0 +1,4 @@
; fixme log file
fixme-merged BbjfCj H4epFBNr2i

1
t/just-comment Normal file
View File

@ -0,0 +1 @@
; blah-blah