haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made HPC analysis possible

Browse Source 
HPC doesn't like TemplateHaskell yet, so we have to comment things that require TemplateHaskell out using a preprocessor.

darcs-hash:20080203132156-a4fee-6587e14d7c57e0dfbc9f50746502e6b0a68b6632
This commit is contained in:
Henning Guenther 2008-02-03 05:21:56 -08:00
parent 6c5011aaa3
commit d5f4d60698
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Data/Encoding.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE ExistentialQuantification,CPP #-}
module Data.Encoding module Data.Encoding
(Encoding(..) (Encoding(..)
,EncodingException(..) ,EncodingException(..)
@ -6,8 +6,10 @@ module Data.Encoding
,recode ,recode
,recodeLazy ,recodeLazy
,DynEncoding() ,DynEncoding()
#ifndef USE_HPC
,encodingFromString ,encodingFromString
,encodingFromStringMaybe ,encodingFromStringMaybe
#endif
) )
where where
@ -15,6 +17,8 @@ import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as Lazy (ByteString) import qualified Data.ByteString.Lazy as Lazy (ByteString)
import Data.Typeable import Data.Typeable
import Data.Encoding.Base import Data.Encoding.Base
#ifndef USE_HPC
import Data.Encoding.ASCII import Data.Encoding.ASCII
import Data.Encoding.UTF8 import Data.Encoding.UTF8
import Data.Encoding.UTF16 import Data.Encoding.UTF16
@ -46,6 +50,7 @@ import Data.Encoding.CP1258
import Data.Encoding.KOI8R import Data.Encoding.KOI8R
import Data.Encoding.KOI8U import Data.Encoding.KOI8U
import Data.Encoding.GB18030 import Data.Encoding.GB18030
#endif
-- | An untyped encoding. Used in 'System.IO.Encoding.getSystemEncoding'. -- | An untyped encoding. Used in 'System.IO.Encoding.getSystemEncoding'.
data DynEncoding = forall t. (Encoding t,Show t,Typeable t,Eq t) data DynEncoding = forall t. (Encoding t,Show t,Typeable t,Eq t)
@ -74,6 +79,7 @@ recode enc_f enc_t bs = encode enc_t (decode enc_f bs)
recodeLazy :: (Encoding from,Encoding to) => from -> to -> Lazy.ByteString -> Lazy.ByteString recodeLazy :: (Encoding from,Encoding to) => from -> to -> Lazy.ByteString -> Lazy.ByteString
recodeLazy enc_f enc_t bs = encodeLazy enc_t (decodeLazy enc_f bs) recodeLazy enc_f enc_t bs = encodeLazy enc_t (decodeLazy enc_f bs)
#ifndef USE_HPC
-- | Like 'encodingFromString' but returns 'Nothing' instead of throwing an error -- | Like 'encodingFromString' but returns 'Nothing' instead of throwing an error
encodingFromStringMaybe :: String -> Maybe DynEncoding encodingFromStringMaybe :: String -> Maybe DynEncoding
encodingFromStringMaybe "ASCII" = Just $ DynEncoding ASCII encodingFromStringMaybe "ASCII" = Just $ DynEncoding ASCII
@ -115,3 +121,4 @@ encodingFromString str = maybe
(error $ "Data.Encoding.encodingFromString: Unknown encoding: "++show str) (error $ "Data.Encoding.encodingFromString: Unknown encoding: "++show str)
id id
(encodingFromStringMaybe str) (encodingFromStringMaybe str)
#endif