diff --git a/src/Data/Text/Conversions.hs b/src/Data/Text/Conversions.hs
index 0cfea04..5b0abd6 100644
--- a/src/Data/Text/Conversions.hs
+++ b/src/Data/Text/Conversions.hs
@@ -146,6 +146,7 @@ hush :: Either a b -> Maybe b
 hush (Left  _) = Nothing
 hush (Right x) = Just x
 
+instance ToText   Char    where toText   = T.singleton
 instance ToText   T.Text  where toText   = id
 instance FromText T.Text  where fromText = id
 instance ToText   String  where toText   = T.pack