Move a little more code around
authorIan Lynagh <igloo@earth.li>
Wed, 23 Mar 2011 17:12:41 +0000 (17:12 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 23 Mar 2011 17:12:41 +0000 (17:12 +0000)
DirectCodegen.hs
Main.hs

index 4aae6d4..dd051e6 100644 (file)
@@ -462,3 +462,6 @@ subst _ _ = id
 dosifyPath :: String -> String
 dosifyPath = subst '/' '\\'
 
+unDosifyPath :: String -> String
+unDosifyPath = subst '\\' '/'
+
diff --git a/Main.hs b/Main.hs
index 3f17131..a68c832 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -194,8 +194,7 @@ getLibDir = getExecDir "/bin/hsc2hs.exe"
 getExecDir :: String -> IO (Maybe String)
 getExecDir cmd =
     getExecPath >>= maybe (return Nothing) removeCmdSuffix
-    where unDosifyPath = subst '\\' '/'
-          initN n = reverse . drop n . reverse
+    where initN n = reverse . drop n . reverse
           removeCmdSuffix = return . Just . initN (length cmd) . unDosifyPath
 
 getExecPath :: IO (Maybe String)