concrete-typerep-0.1.0.2/0000755000000000000000000000000012072777636013347 5ustar0000000000000000concrete-typerep-0.1.0.2/concrete-typerep.cabal0000644000000000000000000000172512072777636017630 0ustar0000000000000000Name: concrete-typerep Version: 0.1.0.2 Synopsis: Binary and Hashable instances for TypeRep Description: Binary and Hashable instances for TypeRep License: BSD3 License-file: LICENSE Author: Reiner Pope Maintainer: reiner.pope@gmail.com Category: Data Build-type: Simple Cabal-version: >=1.9.2 flag new-typerep Description: Build with base >= 4.4.0 Default: False Library Exposed-modules: Data.ConcreteTypeRep Build-depends: binary, hashable < 1.3 if flag(new-typerep) Build-depends: base >= 4.4 && < 5, ghc >= 7.2 cpp-options: -DNEW_TYPEREP else Build-depends: base < 4.4 Test-Suite tests type: exitcode-stdio-1.0 Main-is: Main.hs hs-source-dirs: tests build-depends: base, binary, concrete-typerep, hashable, test-framework, test-framework-quickcheck2, QuickCheck >= 2.4 concrete-typerep-0.1.0.2/LICENSE0000644000000000000000000000275712072777636014367 0ustar0000000000000000Copyright (c)2011, Reiner Pope All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of Reiner Pope nor the names of other contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. concrete-typerep-0.1.0.2/Setup.hs0000644000000000000000000000005612072777636015004 0ustar0000000000000000import Distribution.Simple main = defaultMain concrete-typerep-0.1.0.2/Data/0000755000000000000000000000000012072777636014220 5ustar0000000000000000concrete-typerep-0.1.0.2/Data/ConcreteTypeRep.hs0000644000000000000000000000575712072777636017645 0ustar0000000000000000{-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving, CPP #-} {- | This module defines 'Binary' and 'Hashable' instances for 'TypeRep'. These are defined on a newtype of 'TypeRep', namely 'ConcreteTypeRep', for two purposes: * to avoid making orphan instances * the 'Hashable' instance for 'ConcreteTypeRep' may not be pure enough for some people's tastes. As usual with 'Typeable', this module will typically be used with some variant of @Data.Dynamic@. Two possible uses of this module are: * making hashmaps: @HashMap 'ConcreteTypeRep' Dynamic@ * serializing @Dynamic@s. -} module Data.ConcreteTypeRep ( ConcreteTypeRep, cTypeOf, toTypeRep, fromTypeRep, ) where import Data.Typeable #ifdef NEW_TYPEREP import Data.Typeable.Internal import GHC.Fingerprint.Type #endif import Data.Hashable import Data.Binary import System.IO.Unsafe import Control.Applicative((<$>)) -- | Abstract type providing the functionality of 'TypeRep', but additionally supporting hashing and serialization. -- -- The 'Eq' instance is just the 'Eq' instance for 'TypeRep', so an analogous guarantee holds: @'cTypeOf' a == 'cTypeOf' b@ if and only if @a@ and @b@ have the same type. -- The hashing and serialization functions preserve this equality. newtype ConcreteTypeRep = CTR { unCTR :: TypeRep } deriving(Eq, Typeable) -- | \"Concrete\" version of 'typeOf'. cTypeOf :: Typeable a => a -> ConcreteTypeRep cTypeOf = fromTypeRep . typeOf -- | Converts to the underlying 'TypeRep' toTypeRep :: ConcreteTypeRep -> TypeRep toTypeRep = unCTR -- | Converts from the underlying 'TypeRep' fromTypeRep :: TypeRep -> ConcreteTypeRep fromTypeRep = CTR -- show as a normal TypeRep instance Show ConcreteTypeRep where showsPrec i = showsPrec i . unCTR -- | This instance is guaranteed to be consistent for a single run of the program, but not for multiple runs. instance Hashable ConcreteTypeRep where #ifdef NEW_TYPEREP hashWithSalt salt (CTR (TypeRep (Fingerprint w1 w2) _ _)) = salt `hashWithSalt` w1 `hashWithSalt` w2 #else hashWithSalt salt ctr = hashWithSalt salt (unsafePerformIO . typeRepKey . toTypeRep $ ctr) #endif ------------- serialization: this uses Gökhan San's construction, from ---- http://www.mail-archive.com/haskell-cafe@haskell.org/msg41134.html toTyConRep :: TyCon -> TyConRep fromTyConRep :: TyConRep -> TyCon #ifdef NEW_TYPEREP type TyConRep = (String, String, String) toTyConRep (TyCon _ pack mod name) = (pack, mod, name) fromTyConRep (pack, mod, name) = mkTyCon3 pack mod name #else type TyConRep = String toTyConRep = tyConString fromTyConRep = mkTyCon #endif newtype SerialRep = SR (TyConRep, [SerialRep]) deriving(Binary) toSerial :: ConcreteTypeRep -> SerialRep toSerial (CTR t) = case splitTyConApp t of (con, args) -> SR (toTyConRep con, map (toSerial . CTR) args) fromSerial :: SerialRep -> ConcreteTypeRep fromSerial (SR (con, args)) = CTR $ mkTyConApp (fromTyConRep con) (map (unCTR . fromSerial) args) instance Binary ConcreteTypeRep where put = put . toSerial get = fromSerial <$> get concrete-typerep-0.1.0.2/tests/0000755000000000000000000000000012072777636014511 5ustar0000000000000000concrete-typerep-0.1.0.2/tests/Main.hs0000644000000000000000000000206112072777636015730 0ustar0000000000000000import Test.Framework(defaultMain, testGroup) import Test.Framework.Providers.QuickCheck2 (testProperty) import Test.QuickCheck import Data.Binary(encode, decode) import Data.Hashable(hash) import Control.Applicative import Data.Typeable import Data.ConcreteTypeRep import Data.Word main = defaultMain tests tests = [ testGroup "Serialisation" [ testProperty "roundtrip" prop_roundtrip ] ] prop_roundtrip ty = (toTypeRep . decode . encode . fromTypeRep $ ty) == ty -- instances of arbitrary genTyCon :: Int -- ^ Number of arguments; must be in [0,1,2] -> Gen TyCon genTyCon 0 = elements [tyConOf (__::Int), tyConOf (__::Word), tyConOf (__::Double), tyConOf (__::Bool)] genTyCon 1 = elements [tyConOf (__::Maybe Int), tyConOf (__::IO Int), tyConOf (__::[Int])] genTyCon 2 = elements [tyConOf (__::Either Int Int), tyConOf (__::Int -> Int)] tyConOf ty = fst $ splitTyConApp (typeOf ty) __ = undefined instance Arbitrary TypeRep where arbitrary = do nargs <- elements [0,1,2] mkTyConApp <$> (genTyCon nargs) <*> (vectorOf nargs arbitrary)