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

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