format escapeDoubleQuoteString

haskell-nix · Jan 5, 2022 · f97d97d · f97d97d
1 parent da3b1ce
commit f97d97d
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Nix/Pretty.hs b/src/Nix/Pretty.hs
@@ -108,12 +108,12 @@ pattern t :< ts <- (Text.uncons -> Just (t, ts))
   where (:<) = Text.cons
 
 escapeDoubleQuoteString :: Text -> Text
-escapeDoubleQuoteString ('"':<xs) = "\\\"" <> escapeDoubleQuoteString xs
+escapeDoubleQuoteString ('"':<xs)      = "\\\"" <> escapeDoubleQuoteString xs
 escapeDoubleQuoteString ('$':<'{':<xs) = "\\${" <> escapeDoubleQuoteString xs
-escapeDoubleQuoteString ('$':<xs) = '$' :< escapeDoubleQuoteString xs
-escapeDoubleQuoteString (x:<xs) = maybe (one x) (('\\' :<) . one) (toEscapeCode x)
-  <> escapeDoubleQuoteString xs
-escapeDoubleQuoteString a = a
+escapeDoubleQuoteString ('$':<xs)      = '$' :< escapeDoubleQuoteString xs
+escapeDoubleQuoteString (x:<xs)        = maybe (one x) (('\\' :<) . one) (toEscapeCode x) 
+                                         <> escapeDoubleQuoteString xs
+escapeDoubleQuoteString a              = a
 
 
 prettyString :: NString (NixDoc ann) -> Doc ann