From 814766cd8057e692d640c62c3ce9097c0c88d534 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 10 Aug 2004 14:33:46 +0000
Subject: [haddock @ 2004-08-10 14:33:45 by simonmar] Fixes to installation
 under Windows.

---
 src/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3