Made extensions explicit
darcs-hash:20071229003551-a4fee-f01193be732b8f3f5085232f922490cd5b48706a
This commit is contained in:
parent
49a11ab4f9
commit
971927c91f
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE ExistentialQuantification #-}
|
||||||
module Data.Encoding
|
module Data.Encoding
|
||||||
(Encoding(..)
|
(Encoding(..)
|
||||||
,EncodingException(..)
|
,EncodingException(..)
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
{-# OPTIONS -fglasgow-exts #-}
|
{-# LANGUAGE CPP,TemplateHaskell,DeriveDataTypeable #-}
|
||||||
|
|
||||||
module Data.Encoding.Base
|
module Data.Encoding.Base
|
||||||
(Encoding(..)
|
(Encoding(..)
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1250
|
module Data.Encoding.CP1250
|
||||||
(CP1250(..)) where
|
(CP1250(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1251
|
module Data.Encoding.CP1251
|
||||||
(CP1251(..)) where
|
(CP1251(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1252
|
module Data.Encoding.CP1252
|
||||||
(CP1252(..)) where
|
(CP1252(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1253
|
module Data.Encoding.CP1253
|
||||||
(CP1253(..)) where
|
(CP1253(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1254
|
module Data.Encoding.CP1254
|
||||||
(CP1254(..)) where
|
(CP1254(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1255
|
module Data.Encoding.CP1255
|
||||||
(CP1255(..)) where
|
(CP1255(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1256
|
module Data.Encoding.CP1256
|
||||||
(CP1256(..)) where
|
(CP1256(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1257
|
module Data.Encoding.CP1257
|
||||||
(CP1257(..)) where
|
(CP1257(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.CP1258
|
module Data.Encoding.CP1258
|
||||||
(CP1258(..)) where
|
(CP1258(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP #-}
|
||||||
{- | GB18030 is a chinese character encoding that is mandatory in china (if you
|
{- | GB18030 is a chinese character encoding that is mandatory in china (if you
|
||||||
- don\'t implement it, you\'re not allowed to sell your software there).
|
- don\'t implement it, you\'re not allowed to sell your software there).
|
||||||
-}
|
-}
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
{-# OPTIONS -fglasgow-exts #-}
|
{-# LANGUAGE CPP, MagicHash #-}
|
||||||
module Data.Encoding.GB18030Data where
|
module Data.Encoding.GB18030Data where
|
||||||
|
|
||||||
import Data.ByteString(ByteString)
|
import Data.ByteString(ByteString)
|
||||||
|
|||||||
@ -63,7 +63,7 @@ createModuleFromFile name str = createModule (readDecodeTable name str)
|
|||||||
|
|
||||||
createModule :: [(Char,[Word8])] -> [(Char,Char)] -> [(Int,Int)] -> String
|
createModule :: [(Char,[Word8])] -> [(Char,Char)] -> [(Int,Int)] -> String
|
||||||
createModule mp ranges rranges = unlines $
|
createModule mp ranges rranges = unlines $
|
||||||
["{-# OPTIONS -fglasgow-exts #-}"
|
["{-# LANGUAGE CPP,MagicHash #-}"
|
||||||
,"module Data.Encoding.GB18030Data where"
|
,"module Data.Encoding.GB18030Data where"
|
||||||
,""
|
,""
|
||||||
,"import Data.ByteString(ByteString)"
|
,"import Data.ByteString(ByteString)"
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
{- This module is used to create arrays from lists in template haskell -}
|
{- This module is used to create arrays from lists in template haskell -}
|
||||||
|
|
||||||
module Data.Encoding.Helper.Template where
|
module Data.Encoding.Helper.Template where
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
{- | Implements ISO\/IEC 8859-1 alias latin-1 encoding. See
|
{- | Implements ISO\/IEC 8859-1 alias latin-1 encoding. See
|
||||||
<http://en.wikipedia.org/wiki/ISO/IEC_8859-1> for further informations.
|
<http://en.wikipedia.org/wiki/ISO/IEC_8859-1> for further informations.
|
||||||
-}
|
-}
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885910
|
module Data.Encoding.ISO885910
|
||||||
(ISO885910(..)) where
|
(ISO885910(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885911
|
module Data.Encoding.ISO885911
|
||||||
(ISO885911(..)) where
|
(ISO885911(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885913
|
module Data.Encoding.ISO885913
|
||||||
(ISO885913(..)) where
|
(ISO885913(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885914
|
module Data.Encoding.ISO885914
|
||||||
(ISO885914(..)) where
|
(ISO885914(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885915
|
module Data.Encoding.ISO885915
|
||||||
(ISO885915(..)) where
|
(ISO885915(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO885916
|
module Data.Encoding.ISO885916
|
||||||
(ISO885916(..)) where
|
(ISO885916(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
{- | Implements ISO\/IEC 8859-2 alias latin-2 encoding. See
|
{- | Implements ISO\/IEC 8859-2 alias latin-2 encoding. See
|
||||||
<http://en.wikipedia.org/wiki/ISO/IEC_8859-2> for further informations.
|
<http://en.wikipedia.org/wiki/ISO/IEC_8859-2> for further informations.
|
||||||
-}
|
-}
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
{- | Implements ISO 8859-3 encoding, alias latin-3, alias south european
|
{- | Implements ISO 8859-3 encoding, alias latin-3, alias south european
|
||||||
-}
|
-}
|
||||||
module Data.Encoding.ISO88593
|
module Data.Encoding.ISO88593
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88594
|
module Data.Encoding.ISO88594
|
||||||
(ISO88594(..)) where
|
(ISO88594(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88595
|
module Data.Encoding.ISO88595
|
||||||
(ISO88595(..)) where
|
(ISO88595(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88596
|
module Data.Encoding.ISO88596
|
||||||
(ISO88596(..)) where
|
(ISO88596(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88597
|
module Data.Encoding.ISO88597
|
||||||
(ISO88597(..)) where
|
(ISO88597(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88598
|
module Data.Encoding.ISO88598
|
||||||
(ISO88598(..)) where
|
(ISO88598(..)) where
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP,TemplateHaskell #-}
|
||||||
module Data.Encoding.ISO88599
|
module Data.Encoding.ISO88599
|
||||||
(ISO88599(..)) where
|
(ISO88599(..)) where
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user