From 43d8699de8106ebb8e0124a32bc4c9e0732191d9 Mon Sep 17 00:00:00 2001
From: Phil Ruffwind <rf@rufflewind.com>
Date: Sun, 6 Aug 2017 14:45:56 -0400
Subject: [PATCH] Quote strings in Show instances (#86)

---
 src/Data/String.purs                       | 4 ++--
 src/Data/String/CaseInsensitiveString.purs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Data/String.purs b/src/Data/String.purs
index 22be682..6092ef6 100644
--- a/src/Data/String.purs
+++ b/src/Data/String.purs
@@ -50,7 +50,7 @@ derive instance ordPattern :: Ord Pattern
 derive instance newtypePattern :: Newtype Pattern _
 
 instance showPattern :: Show Pattern where
-  show (Pattern s) = "(Pattern " <> s <> ")"
+  show (Pattern s) = "(Pattern " <> show s <> ")"
 
 -- | A newtype used in cases to specify a replacement for a pattern.
 newtype Replacement = Replacement String
@@ -60,7 +60,7 @@ derive instance ordReplacement :: Ord Replacement
 derive instance newtypeReplacement :: Newtype Replacement _
 
 instance showReplacement :: Show Replacement where
-  show (Replacement s) = "(Replacement " <> s <> ")"
+  show (Replacement s) = "(Replacement " <> show s <> ")"
 
 -- | Returns the character at the given index, if the index is within bounds.
 charAt :: Int -> String -> Maybe Char
diff --git a/src/Data/String/CaseInsensitiveString.purs b/src/Data/String/CaseInsensitiveString.purs
index 124810f..3783164 100644
--- a/src/Data/String/CaseInsensitiveString.purs
+++ b/src/Data/String/CaseInsensitiveString.purs
@@ -17,6 +17,6 @@ instance ordCaseInsensitiveString :: Ord CaseInsensitiveString where
     compare (toLower s1) (toLower s2)
 
 instance showCaseInsensitiveString :: Show CaseInsensitiveString where
-  show (CaseInsensitiveString s) = "(CaseInsensitiveString " <> s <> ")"
+  show (CaseInsensitiveString s) = "(CaseInsensitiveString " <> show s <> ")"
 
 derive instance newtypeCaseInsensitiveString :: Newtype CaseInsensitiveString _