fix parsing around integers in tutd involving spacing
commitf0a36d205e03074e351004054687bdb922dec921
authorAgentM <agentm@themactionfaction.com>
dateTue 3 Nov 2020, 11:26 (6 years ago)
parent90f5c85
src/bin/TutorialD/Interpreter/Base.hs+2−2
@@ -137,9 +137,9 @@ semi = symbol ";"
137137
138138integer :: Parser Integer
139139#if MIN_VERSION_megaparsec(6,0,0)
140−integer = Lex.signed spaceConsumer Lex.decimal
140+integer = Lex.signed (pure ()) Lex.decimal <* spaceConsumer
141141#else
142−integer = Lex.signed spaceConsumer Lex.integer
142+integer = Lex.signed (pure ()) Lex.integer <* spaceConsumer
143143#endif
144144
145145natural :: Parser Integer