getExecDir :: IO (Maybe String)
getExecDir = do h <- getModuleHandle Nothing
n <- getModuleFileName h
- return (Just (reverse (tail (dropWhile (not .isSlash) (reverse (unDosifyPath n))))))
+ return (Just (reverse (tail (dropWhile (not . isSlash) (reverse (unDosifyPath n))))))
#else
getExecDir :: IO (Maybe String) = do return Nothing
#endif