Skip to content

Instantly share code, notes, and snippets.

@yuga

yuga/hsc2hs-ghc-7.4.1.patch

Created August 20, 2012 05:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yuga/3401450 to your computer and use it in GitHub Desktop.
Save yuga/3401450 to your computer and use it in GitHub Desktop.
Download ZIP
Quick Fix to solve runProcess error of hsc2hs
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment