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