Quick Fix to solve runProcess error of hsc2hs

hsc2hs-ghc-7.4.1.patch

diff -Naru hsc2hs-ghc-7.4.1/utils/hsc2hs/Common.hs hsc2hs-ghc-7.4.1-fixed/utils/hsc2hs/Common.hs
--- hsc2hs-ghc-7.4.1/utils/hsc2hs/Common.hs     2012-02-02 03:10:32.000000000 +0900
+++ hsc2hs-ghc-7.4.1-fixed/utils/hsc2hs/Common.hs       2012-08-20 12:30:18.350942900 +0900
@@ -24,7 +24,11 @@

 splitName :: String -> (String, String)
 splitName name =
+#if defined(mingw32_HOST_OS)
+    case break (== '\\') name of
+#else
     case break (== '/') name of
+#endif
         (file, [])       -> ([], file)
         (dir,  sep:rest) -> (dir++sep:restDir, restFile)
             where