Fix string literal gap parsing with control-with-character

Author: amesgen

CHANGELOG.md

@@ -12,6 +12,9 @@
 
 * Updated to `Cabal-syntax-3.16`.
 
+* Correctly format string literals containing the `\^\` escape sequence. [Issue
+  1165](https://github.com/tweag/ormolu/issues/1165).
+
 ## Ormolu 0.8.0.2
 
 * Fixed a performance regression introduced in 0.8.0.0. [Issue

data/examples/declaration/value/function/strings-out.hs

@@ -10,3 +10,5 @@ baz =
   \baz"
 
 weirdGap = "\65\ \0"
+
+weirdEscape = "\^\ "

data/examples/declaration/value/function/strings.hs

@@ -7,3 +7,5 @@ baz = "foo\
     \baz"
 
 weirdGap = "\65\ \0"
+
+weirdEscape = "\^\ "

src/Ormolu/Printer/Meat/Declaration/StringLiteral.hs

@@ -91,13 +91,26 @@ parseStringLiteral = \s -> do
       where
         go [] = [s]
         go ((pre, suf) : bs) = case T.uncons suf of
-          Just ('\\', T.uncons -> Just (c, s'))
-            | is_space c,
-              let rest = T.drop 1 $ T.dropWhile (/= '\\') s' ->
+          Just ('\\', suf')
+            | (gap, T.uncons -> Just ('\\', rest)) <- T.span is_space suf',
+              -- If there is a space after the backslash, this definitely is a
+              -- string gap. Continue parsing gaps after the next backslash.
+              not $ T.null gap ->
                 pre : splitGaps rest
-            | otherwise -> go $ (if c == '\\' then drop 1 else id) bs
+            | otherwise ->
+                -- Check whether @suf@ starts with an escape sequence involving
+                -- another backslash. If so, it can not be the start of a string
+                -- gap, so we skip it.
+                let skipNextBackslash =
+                      any (`T.isPrefixOf` suf') escapesWithAnotherBackslash
+                 in go $ (if skipNextBackslash then drop 1 else id) bs
           _ -> go bs
 
+        -- All escape sequences (without the initial backslash) with another
+        -- backslash. See
+        -- https://www.haskell.org/onlinereport/haskell2010/haskellch2.html#x7-200002.6
+        escapesWithAnotherBackslash = ["\\", "^\\"]
+
     -- See the the MultilineStrings GHC proposal and 'lexMultilineString' from
     -- "GHC.Parser.String" for reference.
     --