diff --git a/compiler/GHC/Driver/StringInterpolation.hs b/compiler/GHC/Driver/StringInterpolation.hs index 8b594a713b88f00f2dd0ab0492c647b889e6f79e..54b8af39496393c513808b39991780c3caa44119 100644 --- a/compiler/GHC/Driver/StringInterpolation.hs +++ b/compiler/GHC/Driver/StringInterpolation.hs @@ -31,7 +31,6 @@ interpolateStrings s = go s WaitingForString "" -> error "we were collecting var name, but text ended unexpectedly" '}':'"':s -> "(\"" ++ (reverse acc) ++ "\" ++ " ++ (reverse var) ++ ")" ++ go s WaitingForString '}':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) where skipSpaces "" = go "" state