diff --git a/Data/ByteString/UTF8.hs b/Data/ByteString/UTF8.hs
index 0ab0dfadb8d5a098c38c6caeffd35f262279f9d4..d339a39382da54b35a8a63cf3ca01fb92cd02991 100644
--- a/Data/ByteString/UTF8.hs
+++ b/Data/ByteString/UTF8.hs
@@ -26,6 +26,7 @@ module Data.ByteString.UTF8
   , drop
   , span
   , break
+  , fromChar
   , fromString
   , toString
   , foldl
@@ -43,6 +44,10 @@ import Prelude hiding (take,drop,splitAt,span,break,foldr,foldl,length,lines)
 import Codec.Binary.UTF8.String(encode)
 import Codec.Binary.UTF8.Generic (buncons)
 
+-- | Converts a Haskell char into a UTF8 encoded bytestring.
+fromChar :: Char -> B.ByteString
+fromChar x = fromString [x]
+
 -- | Converts a Haskell string into a UTF8 encoded bytestring.
 fromString :: String -> B.ByteString
 fromString xs = B.pack (encode xs)