summaryrefslogtreecommitdiff
path: root/src/Network/AWS/Data/Text.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/AWS/Data/Text.hs')
-rw-r--r--src/Network/AWS/Data/Text.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Network/AWS/Data/Text.hs b/src/Network/AWS/Data/Text.hs
index ea368d9..8bf8326 100644
--- a/src/Network/AWS/Data/Text.hs
+++ b/src/Network/AWS/Data/Text.hs
@@ -76,6 +76,9 @@ instance FromText Text where
instance FromText ByteString where
parser = Text.encodeUtf8 <$> A.takeText
+instance (CI.FoldCase a, FromText a) => FromText (CI a) where
+ parser = CI.mk <$> parser
+
instance FromText Char where
parser = A.anyChar <* A.endOfInput