git.iko.soy/typerep-map
on main help sign in
Fix build on 32 bit platforms (#82)
2eb113fKen Micklas
src/Data/TypeRepMap/Internal.hs+8
compare with main
unifiedsplit
@@ -25,6 +25,8 @@ If you need to use this module for purposes other than tests,
25create an issue.
25create an issue.
26-}
26-}
27
27
28+#include "MachDeps.h"
29+
28module Data.TypeRepMap.Internal where
30module Data.TypeRepMap.Internal where
29
31
30import Prelude hiding (lookup)
32import Prelude hiding (lookup)
@@ -44,7 +46,13 @@ import Data.Semigroup (Semigroup (..), All(..))
44import GHC.Base (Any, Int (..), Int#, (*#), (+#), (<#))
46import GHC.Base (Any, Int (..), Int#, (*#), (+#), (<#))
45import GHC.Exts (IsList (..), inline, sortWith)
47import GHC.Exts (IsList (..), inline, sortWith)
46import GHC.Fingerprint (Fingerprint (..))
48import GHC.Fingerprint (Fingerprint (..))
49+#if WORD_SIZE_IN_BITS >= 64
47import GHC.Prim (eqWord#, ltWord#)
50import GHC.Prim (eqWord#, ltWord#)
51+#else
52+import GHC.IntWord64 (eqWord64#, ltWord64#)
53+#define eqWord eqWord64
54+#define ltWord ltWord64
55+#endif
48import GHC.Word (Word64 (..))
56import GHC.Word (Word64 (..))
49import Type.Reflection (SomeTypeRep (..), TypeRep, Typeable, typeRep, withTypeable)
57import Type.Reflection (SomeTypeRep (..), TypeRep, Typeable, typeRep, withTypeable)
50import Type.Reflection.Unsafe (typeRepFingerprint)
58import Type.Reflection.Unsafe (typeRepFingerprint)