mkModid is fixed, so pdynload works well on Windows

2005-06-19 12:05:49 +00:00
parent d07bb01b48
commit 62b6e31734
3 changed files with 7 additions and 3 deletions
--- a/src/plugins/System/Plugins/Utils.hs
+++ b/src/plugins/System/Plugins/Utils.hs
@ -283,7 +283,7 @@ dropSuffix f = reverse . tail . dropWhile (/= '.') $ reverse f
 --
 -- | work out the mod name from a filepath
 mkModid :: String -> String
-mkModid = (takeWhile (/= '.')) . reverse . (takeWhile (/= '/')) . reverse
+mkModid = (takeWhile (/= '.')) . reverse . (takeWhile (\x -> ('/'/= x) && ('\\' /= x))) . reverse


 -----------------------------------------------------------