X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FCPUTime.hsc;h=a25c750ff3bf6dd0b37040902796faaa58c819e0;hb=41e8fba828acbae1751628af50849f5352b27873;hp=c2faa1c51b7a4d52042de1eb384c06275db4705d;hpb=4c311d7ac89f786fa444517911ab7bd13be0fa4b;p=ghc-base.git

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index c2faa1c..a25c750 100644
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP, NondecreasingIndentation, ForeignFunctionInterface #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.CPUTime
@@ -31,8 +33,11 @@ import CPUTime ( getCPUTime, cpuTimePrecision )
 #endif
 
 #ifdef __GLASGOW_HASKELL__
-import Foreign
+import Foreign hiding (unsafePerformIO)
 import Foreign.C
+#if !defined(CLK_TCK)
+import System.IO.Unsafe (unsafePerformIO)
+#endif
 
 #include "HsBaseConfig.h"