@@ -25,6 +25,8 @@ If you need to use this module for purposes other than tests,
2525create an issue.
2626-}
2727
28+#include "MachDeps.h"
29+
2830module Data.TypeRepMap.Internal where
2931
3032import Prelude hiding (lookup)
@@ -44,7 +46,13 @@ import Data.Semigroup (Semigroup (..), All(..))
4446import GHC.Base (Any, Int (..), Int#, (*#), (+#), (<#))
4547import GHC.Exts (IsList (..), inline, sortWith)
4648import GHC.Fingerprint (Fingerprint (..))
49+#if WORD_SIZE_IN_BITS >= 64
4750import GHC.Prim (eqWord#, ltWord#)
51+#else
52+import GHC.IntWord64 (eqWord64#, ltWord64#)
53+#define eqWord eqWord64
54+#define ltWord ltWord64
55+#endif
4856import GHC.Word (Word64 (..))
4957import Type.Reflection (SomeTypeRep (..), TypeRep, Typeable, typeRep, withTypeable)
5058import Type.Reflection.Unsafe (typeRepFingerprint)