From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 13 Sep 2010 11:15:36 +0000 (+0000)
Subject: fix warning on Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=e4f00479f278ad00f317db7e3a987ecb29da6b0f;hp=87c689948cdbf75570ec2c6b00b982ddd5c67573;p=ghc-base.git

fix warning on Windows
---

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 5a7e696..f050a68 100644
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -33,7 +33,9 @@ import CPUTime ( getCPUTime, cpuTimePrecision )
 #ifdef __GLASGOW_HASKELL__
 import Foreign hiding (unsafePerformIO)
 import Foreign.C
+#if !defined(CLK_TCK)
 import System.IO.Unsafe (unsafePerformIO)
+#endif
 
 #include "HsBaseConfig.h"