X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FCPUTime.lhs;h=86309a302650a04c0d2149dd0b334a2ae1cd4524;hb=1e2dc51066e0ebaf5d9baa8578386478078a430f;hp=0cd9333caa59df50d0a1c856c48d2f5054609e08;hpb=97266903ff92a270243a05bfb4e9f9d008faff25;p=ghc-hetmet.git

diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index 0cd9333..86309a3 100644
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -59,7 +59,7 @@ cpuTimePrecision = round ((1000000000000::Integer) %
                           fromInt (unsafePerformIO clockTicks))
 
 foreign import "libHS_cbits" "getCPUTime" unsafe primGetCPUTime :: ByteArray Int -> IO Int
-foreign import "libHS_cbits" "clockTicks" clockTicks :: IO Int
+foreign import "libHS_cbits" "clockTicks" unsafe clockTicks :: IO Int
 
 \end{code}