037505e3d6
Ignore-this: 2c8c38a574a39170f67a4f043406f081 darcs-hash:20090813043833-a4fee-65a4a6eba1ca3d6ad04b69ec9b9ce805edb8e302
23 lines
747 B
Haskell
23 lines
747 B
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
{- | Implements ISO\/IEC 8859-1 alias latin-1 encoding. See <http://en.wikipedia.org/wiki/ISO/IEC_8859-1> for further information.
|
|
-}
|
|
module Data.Encoding.ISO88591 where
|
|
|
|
import Control.Throws
|
|
import Data.Encoding.Base
|
|
import Data.Encoding.Exception
|
|
import Data.Encoding.ByteSource
|
|
import Data.Encoding.ByteSink
|
|
import Data.Char (ord,chr)
|
|
import Data.Typeable
|
|
|
|
data ISO88591 = ISO88591 deriving (Show,Eq,Typeable)
|
|
|
|
instance Encoding ISO88591 where
|
|
encodeChar _ c
|
|
| c > '\255' = throwException (HasNoRepresentation c)
|
|
| otherwise = pushWord8 (fromIntegral $ ord c)
|
|
decodeChar _ = do
|
|
w <- fetchWord8
|
|
return (chr $ fromIntegral w)
|
|
encodeable _ c = c <= '\255' |