From 7e194bf95356a23a0a7517034002690590b24523 Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Fri, 24 Nov 2023 18:21:26 +0100 Subject: [PATCH] Get rid of compilation warning on Windows --- System/Random/MWC/SeedSource.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/System/Random/MWC/SeedSource.hs b/System/Random/MWC/SeedSource.hs index 31b1931..fa4f333 100644 --- a/System/Random/MWC/SeedSource.hs +++ b/System/Random/MWC/SeedSource.hs @@ -22,9 +22,10 @@ import Foreign.Marshal.Array (peekArray) #if defined(mingw32_HOST_OS) import Foreign.Ptr import Foreign.C.Types +#else +import System.IO (IOMode(..), hGetBuf, withBinaryFile) #endif import System.CPUTime (cpuTimePrecision, getCPUTime) -import System.IO (IOMode(..), hGetBuf, withBinaryFile) -- Acquire seed from current time. This is horrible fallback for -- Windows system.