diff options
| author | aarne <unknown> | 2004-08-11 10:02:26 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-11 10:02:26 +0000 |
| commit | 8bc2cee83156fa923d466a1a9a77816f9049f352 (patch) | |
| tree | f1ce864e08b2204d48b0dd47f4fcebc5bbc73c9f /src/GF/Infra/ReadFiles.hs | |
| parent | 23db149b9b09dfda3dffc128d94f904cac8f9ff9 (diff) | |
bug fix in reading files
Diffstat (limited to 'src/GF/Infra/ReadFiles.hs')
| -rw-r--r-- | src/GF/Infra/ReadFiles.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |