Skip to content

Instantly share code, notes, and snippets.

@mlen

mlen/foo.diff

Created October 30, 2014 09:46
Show Gist options
  • Save mlen/3b856f500af5bc4b4837 to your computer and use it in GitHub Desktop.
Save mlen/3b856f500af5bc4b4837 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.diff
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index 953797e..30f1f09 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -810,7 +810,7 @@ pprHsChar c | c > '\x10ffff' = char '\\' <> text (show (fromIntegral (ord c) ::
-- | Special combinator for showing string literals.
pprHsString :: FastString -> SDoc
pprHsString fs = [-v-]{+h+}cat (map text (showMultiLineString (unpackFS fs)))
-- | Special combinator for showing string literals.
pprHsBytes :: ByteString -> SDoc
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment