From 7fdf4cda3b229e2873a46e0482c83f52b714c5fe Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sat, 30 Jan 2016 17:31:48 +0100 Subject: Replace `__hsunix_times` wrapper with CApiFFI --- System/Posix/Process/Common.hsc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'System') diff --git a/System/Posix/Process/Common.hsc b/System/Posix/Process/Common.hsc index 66e0d20..c13bf5e 100644 --- a/System/Posix/Process/Common.hsc +++ b/System/Posix/Process/Common.hsc @@ -1,3 +1,4 @@ +{-# LANGUAGE CApiFFI #-} {-# LANGUAGE InterruptibleFFI, RankNTypes #-} #ifdef __GLASGOW_HASKELL__ {-# LANGUAGE Trustworthy #-} @@ -213,7 +214,7 @@ getProcessTimes = do type CTms = () -foreign import ccall unsafe "__hsunix_times" +foreign import capi unsafe "HsUnix.h times" c_times :: Ptr CTms -> IO CClock -- ----------------------------------------------------------------------------- -- cgit v1.2.3