Skip to content
Snippets Groups Projects
Commit 04cb46ce authored by Alexander Kaznacheev's avatar Alexander Kaznacheev
Browse files

Fix StringInterpolation. Remove extra check

parent 5eb1e883
No related branches found
No related tags found
No related merge requests found
...@@ -31,7 +31,6 @@ interpolateStrings s = go s WaitingForString ...@@ -31,7 +31,6 @@ interpolateStrings s = go s WaitingForString
"" -> error "we were collecting var name, but text ended unexpectedly" "" -> error "we were collecting var name, but text ended unexpectedly"
'}':'"':s -> "(\"" ++ (reverse acc) ++ "\" ++ " ++ (reverse var) ++ ")" ++ go s WaitingForString '}':'"':s -> "(\"" ++ (reverse acc) ++ "\" ++ " ++ (reverse var) ++ ")" ++ go s WaitingForString
'}':s -> go s (InStringWaitingForVar True $ "\" ++ " ++ var ++ " ++ \"" ++ acc) '}':s -> go s (InStringWaitingForVar True $ "\" ++ " ++ var ++ " ++ \"" ++ acc)
'"':_ -> error "we were collecting var name, but the string ended unexpectedly"
c:s -> go s (InStringInVar hasInterpolations (c:var) acc) c:s -> go s (InStringInVar hasInterpolations (c:var) acc)
where where
skipSpaces "" = go "" state skipSpaces "" = go "" state
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment