[haddock @ 2004-08-10 14:33:45 by simonmar]

Fixes to installation under Windows.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 08c3ba7a..d4488b24 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -161,10 +161,11 @@ run flags files = do
 			(t:_) -> Just t
 
   libdir <- case [str | Flag_Lib str <- flags] of
-		[] -> do maybe_exec_dir <- getBaseDir -- Get directory of executable
+		[] -> do maybe_exec_dir <- getBaseDir
+				-- Get directory of executable
 			 case maybe_exec_dir of
                                        Nothing  -> return "."
-                                       Just dir -> return (dir ++ "\\imports")
+                                       Just dir -> return dir
 		fs -> return (last fs)
 
   let css_file = case [str | Flag_CSS str <- flags] of