[commit: packages/directory] master: Fix broken tests/getPermissions001.hs (8ec9e1a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8ec9e1a99bc5e8be58887e0f3aff6e0d9cbbc57e/directory

>---------------------------------------------------------------

commit 8ec9e1a99bc5e8be58887e0f3aff6e0d9cbbc57e
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Tue Mar 3 02:49:36 2015 -0500

    Fix broken tests/getPermissions001.hs


>---------------------------------------------------------------

8ec9e1a99bc5e8be58887e0f3aff6e0d9cbbc57e
 tests/getPermissions001.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs
index 8290d3f..6582928 100644
--- a/tests/getPermissions001.hs
+++ b/tests/getPermissions001.hs
@@ -1,7 +1,8 @@
+{-# LANGUAGE CPP #-}
 import System.Directory
 
 main = do
-#ifndef mingw32_HOST_OS
+#ifdef mingw32_HOST_OS
   let exe = ".exe"
 #else
   let exe = ""
@@ -15,3 +16,5 @@ main = do
 
   -- issue #9: Windows doesn't like trailing path separators
   _ <- getPermissions "../tests/"
+
+  return ()