From 8bc2cee83156fa923d466a1a9a77816f9049f352 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 11 Aug 2004 10:02:26 +0000
Subject: bug fix in reading files

---
 src/GF/Infra/ReadFiles.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Infra/ReadFiles.hs')

diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs
index 8d835284d..edbed4047 100644
--- a/src/GF/Infra/ReadFiles.hs
+++ b/src/GF/Infra/ReadFiles.hs
@@ -158,7 +158,7 @@ resModName = ('#':)
 getImports :: [InitPath] -> FileName -> IOE [(ModuleHeader,InitPath)]
 getImports ps = get [] where
   get ds file0 = do
-    let name = fileBody file0
+    let name = justModuleName file0 ---- fileBody file0
     (p,s) <- tryRead name
     let ((typ,mname),imps) = importsOfFile s
     let namebody = justFileName name
-- 
cgit v1.2.3