From: simonmar@microsoft.com <unknown>
Date: Thu, 1 Jun 2006 11:53:35 +0000 (+0000)
Subject: add a type signature
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=159689198a04d62643028ebd9a49ccb91552337e

add a type signature
---

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