From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Wed, 18 Feb 2009 12:03:00 +0000 (+0000)
Subject: Fix Hugs build (#ifdef code inclusion was slightly wrong)
X-Git-Tag: 2009-06-25~14
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=ba9a368b96a4ae622fe463c178f223dffdd5a38f

Fix Hugs build (#ifdef code inclusion was slightly wrong)
---

diff --git a/System/Directory.hs b/System/Directory.hs
index 2579c02..7cfb090 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -902,6 +902,8 @@ getModificationTime name =
  withFileStatus "getModificationTime" name $ \ st ->
  modificationTime st
 
+#endif /* !__HUGS__ */
+
 withFileStatus :: String -> FilePath -> (Ptr CStat -> IO a) -> IO a
 withFileStatus loc name f = do
   modifyIOError (`ioeSetFileName` name) $
@@ -944,7 +946,6 @@ foreign import ccall unsafe "__hscore_S_IXUSR" s_IXUSR :: CMode
 foreign import ccall unsafe "__hscore_S_IFDIR" s_IFDIR :: CMode
 #endif
 
-#endif /* !__HUGS__ */
 
 #ifdef __GLASGOW_HASKELL__
 foreign import ccall unsafe "__hscore_long_path_size"