fix MultilineStrings

compiler/GHC/Driver/MultilineStrings.hs

@@ -11,7 +11,7 @@ convertMultilineStrings s = go s WaitingForString 0
    '-':'-':s -> '-':'-': skipOneLineComment s
    '{':'-':s -> '{':'-': skipComment s
    '"':'"':'"':'\n':'"':'"':'"':s -> '"':'"': go s state 3
-   '"':'"':'"':'\n':s -> '\n':' ':'"' : go s InString charCnt
+   '"':'"':'"':'\n':s -> "\n" ++ replicate charCnt ' ' ++ "\"" ++ go s InString charCnt
    '\n':s -> '\n' : go s state 0
    c:s -> c : go s state (charCnt + 1)
   InString -> case s of
@@ -19,7 +19,7 @@ convertMultilineStrings s = go s WaitingForString 0
    '\n':'"':'"':'"':s -> '"':'\n' : go s WaitingForString 0
    '"':s -> '\\':'"' : go s state charCnt
    '\\':s -> '\\':'\\' : go s state charCnt
-   '\n':s -> "\\n\"\n" ++ replicate charCnt ' ' ++ " ++ \"" ++ go s state charCnt
+   '\n':s -> "\\n\"\n" ++ replicate charCnt ' ' ++ "++ \"" ++ go s state charCnt
    c:s -> c : go s state charCnt
   where
   skipOneLineComment "" = go "" state charCnt