diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-06-18 21:21:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-06-18 21:21:13 +0000 |
| commit | c212633be8264ce724ad2304861ee4cf0111b70b (patch) | |
| tree | a8b62c7c4f42c897d841c9c08cf2c1091cda178b /src/GF/Compile/Rename.hs | |
| parent | 6b99696e860e9d12fb3102867e622bbf828cf271 (diff) | |
fixed the mysterious "file..gfc" error
Diffstat (limited to 'src/GF/Compile/Rename.hs')
| -rw-r--r-- | src/GF/Compile/Rename.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Compile/Rename.hs b/src/GF/Compile/Rename.hs index 52fb44211..0a148f02f 100644 --- a/src/GF/Compile/Rename.hs +++ b/src/GF/Compile/Rename.hs @@ -103,8 +103,9 @@ renameIdentTerm env@(act,imps) t = [] -> alt c ("constant not found:" +++ prt c) fs -> case nub [f c | f <- fs] of [tr] -> return tr - ts@(tr:_) -> - Bad $ "conflicting imports:" +++ unwords (map prt ts) + ts -> return $ Strs $ (cnIC "#conflict") : reverse ts + -- a warning will be generated in CheckGrammar, and the head returned + -- in next V: Bad $ "conflicting imports:" +++ unwords (map prt ts) --- | would it make sense to optimize this by inlining? |