diff options
| author | David Terei <davidterei@gmail.com> | 2011-10-25 20:43:23 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-25 21:40:50 -0700 |
| commit | 378dd2968d07b3780a2944bf91e3228671b51868 (patch) | |
| tree | 1ee340dc24967b112afb7d7bf2a065d3b2753238 /libraries/base/GHC/IO/Encoding.hs | |
| parent | c9dceb6d3b3ac855d97db8957dcf181658eaf7ae (diff) | |
| download | haskell-378dd2968d07b3780a2944bf91e3228671b51868.tar.gz | |
Update base for latest Safe Haskell.
Diffstat (limited to 'libraries/base/GHC/IO/Encoding.hs')
| -rw-r--r-- | libraries/base/GHC/IO/Encoding.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/base/GHC/IO/Encoding.hs b/libraries/base/GHC/IO/Encoding.hs index 4f8d6b120c..8d98d94336 100644 --- a/libraries/base/GHC/IO/Encoding.hs +++ b/libraries/base/GHC/IO/Encoding.hs @@ -200,3 +200,4 @@ latin1_encode input output = fmap (\(_why,input',output') -> (input',output')) $ latin1_decode :: Buffer Word8 -> CharBuffer -> IO (Buffer Word8, CharBuffer) latin1_decode input output = fmap (\(_why,input',output') -> (input',output')) $ Latin1.latin1_decode input output --latin1_decode = unsafePerformIO $ do mkTextDecoder Iconv.latin1 >>= return.encode + |