diff --git a/src/Mark.elm b/src/Mark.elm index 5cce7d1..aa1f0a2 100644 --- a/src/Mark.elm +++ b/src/Mark.elm @@ -1829,7 +1829,7 @@ string = \desc -> case desc of DescribeString id range str -> - Outcome.Success (String.trim str) + Outcome.Success str _ -> Outcome.Failure NoMatch @@ -1860,7 +1860,7 @@ string = ParseBlock -> Parser.map (\( pos, str ) -> - DescribeString id pos str + DescribeString id pos (String.trim str) ) (Parse.withRange (Parse.withIndent @@ -1873,7 +1873,7 @@ string = ParseInTree -> Parser.map (\( pos, str ) -> - DescribeString id pos str + DescribeString id pos (String.trim str) ) (Parse.withRange (Parse.withIndent