Partial support for Haiku (#3727)

[ghc-hetmet.git] / rts / posix / GetTime.c

diff --git a/rts/posix/GetTime.c b/rts/posix/GetTime.c
index 34fcd5c..939eef1 100644 (file)
--- a/rts/posix/GetTime.c
+++ b/rts/posix/GetTime.c
@@ -153,7 +153,7 @@ Ticks getThreadCPUTime(void)
 nat
 getPageFaults(void)
 {
-#if !defined(HAVE_GETRUSAGE) || irix_HOST_OS
+#if !defined(HAVE_GETRUSAGE) || irix_HOST_OS || haiku_HOST_OS
     return 0;
 #else
     struct rusage t;