diff options
| author | simonmar@microsoft.com <unknown> | 2006-06-01 11:53:35 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2006-06-01 11:53:35 +0000 |
| commit | 159689198a04d62643028ebd9a49ccb91552337e (patch) | |
| tree | 3a1b36837e6c61feae735dd04c478fbe219d379d /compiler/utils/Encoding.hs | |
| parent | 77452bc2888f3fd071774b1177868e95f85a43dc (diff) | |
| download | haskell-159689198a04d62643028ebd9a49ccb91552337e.tar.gz | |
add a type signature
Diffstat (limited to 'compiler/utils/Encoding.hs')
| -rw-r--r-- | compiler/utils/Encoding.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs index c7f90706f9..5afe870934 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 |