Made extensions explicit

darcs-hash:20071229003551-a4fee-f01193be732b8f3f5085232f922490cd5b48706a
This commit is contained in:
Henning Guenther 2007-12-28 16:35:51 -08:00
parent 49a11ab4f9
commit 971927c91f
30 changed files with 30 additions and 3 deletions

View File

@ -1,3 +1,4 @@
{-# LANGUAGE ExistentialQuantification #-}
module Data.Encoding module Data.Encoding
(Encoding(..) (Encoding(..)
,EncodingException(..) ,EncodingException(..)

View File

@ -1,4 +1,4 @@
{-# OPTIONS -fglasgow-exts #-} {-# LANGUAGE CPP,TemplateHaskell,DeriveDataTypeable #-}
module Data.Encoding.Base module Data.Encoding.Base
(Encoding(..) (Encoding(..)

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1250 module Data.Encoding.CP1250
(CP1250(..)) where (CP1250(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1251 module Data.Encoding.CP1251
(CP1251(..)) where (CP1251(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1252 module Data.Encoding.CP1252
(CP1252(..)) where (CP1252(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1253 module Data.Encoding.CP1253
(CP1253(..)) where (CP1253(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1254 module Data.Encoding.CP1254
(CP1254(..)) where (CP1254(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1255 module Data.Encoding.CP1255
(CP1255(..)) where (CP1255(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1256 module Data.Encoding.CP1256
(CP1256(..)) where (CP1256(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1257 module Data.Encoding.CP1257
(CP1257(..)) where (CP1257(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.CP1258 module Data.Encoding.CP1258
(CP1258(..)) where (CP1258(..)) where

View File

@ -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).
-} -}

View File

@ -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)

View File

@ -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)"

View File

@ -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

View File

@ -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.
-} -}

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885910 module Data.Encoding.ISO885910
(ISO885910(..)) where (ISO885910(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885911 module Data.Encoding.ISO885911
(ISO885911(..)) where (ISO885911(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885913 module Data.Encoding.ISO885913
(ISO885913(..)) where (ISO885913(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885914 module Data.Encoding.ISO885914
(ISO885914(..)) where (ISO885914(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885915 module Data.Encoding.ISO885915
(ISO885915(..)) where (ISO885915(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO885916 module Data.Encoding.ISO885916
(ISO885916(..)) where (ISO885916(..)) where

View File

@ -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.
-} -}

View File

@ -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

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88594 module Data.Encoding.ISO88594
(ISO88594(..)) where (ISO88594(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88595 module Data.Encoding.ISO88595
(ISO88595(..)) where (ISO88595(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88596 module Data.Encoding.ISO88596
(ISO88596(..)) where (ISO88596(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88597 module Data.Encoding.ISO88597
(ISO88597(..)) where (ISO88597(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88598 module Data.Encoding.ISO88598
(ISO88598(..)) where (ISO88598(..)) where

View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP,TemplateHaskell #-}
module Data.Encoding.ISO88599 module Data.Encoding.ISO88599
(ISO88599(..)) where (ISO88599(..)) where