1{-# LANGUAGE CPP, MagicHash #-} 2 3-- | 4-- Module : Data.Primitive.Internal.Compat 5-- Copyright : (c) Roman Leshchinskiy 2011-2012 6-- License : BSD-style 7-- 8-- Maintainer : Roman Leshchinskiy <rl@cse.unsw.edu.au> 9-- Portability : non-portable 10-- 11-- Compatibility functions 12-- 13 14module Data.Primitive.Internal.Compat ( 15 isTrue# 16 , mkNoRepType 17 ) where 18 19#if MIN_VERSION_base(4,2,0) 20import Data.Data (mkNoRepType) 21#else 22import Data.Data (mkNorepType) 23#endif 24 25#if MIN_VERSION_base(4,7,0) 26import GHC.Exts (isTrue#) 27#endif 28 29 30 31#if !MIN_VERSION_base(4,2,0) 32mkNoRepType = mkNorepType 33#endif 34 35#if !MIN_VERSION_base(4,7,0) 36isTrue# :: Bool -> Bool 37isTrue# b = b 38#endif 39