import Control.Exception ( bracket )
import Control.Monad
import GHC.IOBase
-#include "ghcconfig.h"
#endif
#ifdef __HUGS__
isPathSeparator :: Char -> Bool
isPathSeparator '/' = True
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
isPathSeparator '\\' = True
#endif
isPathSeparator _ = False