@@ -63,6 +63,11 @@ import qualified Data.Text.Internal.Lazy.Fusion as TLF
63import qualified Data.Text.Lazy as TL
63import qualified Data.Text.Lazy as TL
64import qualified System.IO as IO
64import qualified System.IO as IO
66+#if !MIN_VERSION_base(4,4,0)
67+import Data.Int (Int64)
68+import Data.Word (Word, Word64)
66instance Random I16 where
71instance Random I16 where
67 randomR = integralRandomR
72 randomR = integralRandomR
68 random = randomR (minBound,maxBound)
73 random = randomR (minBound,maxBound)