add a type signature

[ghc-hetmet.git] / compiler / utils / Encoding.hs

diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs
index c7f9070..5afe870 100644 (file)
--- a/compiler/utils/Encoding.hs
+++ b/compiler/utils/Encoding.hs
@@ -138,6 +138,7 @@ countUTF8Chars ptr bytes = go ptr 0
 
 unPtr (Ptr a) = a
 
+utf8EncodeChar :: Char -> Ptr Word8 -> IO (Ptr Word8)
 utf8EncodeChar c ptr =
   let x = ord c in
   case () of