X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FEncoding.hs;h=5afe870934a1a42a3dae0ae5141637e7a9e09b9d;hb=159689198a04d62643028ebd9a49ccb91552337e;hp=c7f90706f981b7267b4a6e60142e25fa9477351f;hpb=13de816da2c8cb8509e05198c0da47560fd3e0de;p=ghc-hetmet.git

diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs
index c7f9070..5afe870 100644
--- 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