From cf67c9c64e10901ab753c50c1d72af1497772f06 Mon Sep 17 00:00:00 2001
From: Adam Bergmark <adam@bergmark.nl>
Date: Tue, 1 Sep 2015 18:05:21 +0200
Subject: [PATCH] Change ToString to use original rather than foldedCase

---
 src/Data/String/ToString.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/String/ToString.hs b/src/Data/String/ToString.hs
index 491b015..0a2515a 100644
--- a/src/Data/String/ToString.hs
+++ b/src/Data/String/ToString.hs
@@ -4,7 +4,7 @@
   #-}
 module Data.String.ToString (ToString (..)) where
 
-import Data.CaseInsensitive (CI, foldedCase)
+import Data.CaseInsensitive (CI, original)
 import qualified Data.ByteString.Lazy.UTF8 as LBU
 import qualified Data.ByteString.UTF8      as SBU
 import qualified Data.Text                 as ST
@@ -29,4 +29,4 @@ instance ToString LT.Text where
   toString = LT.unpack
 
 instance ToString s => ToString (CI s) where
-  toString = toString . foldedCase
+  toString = toString . original