diff options
Diffstat (limited to 'src/GF/Compile/Extend.hs')
| -rw-r--r-- | src/GF/Compile/Extend.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Compile/Extend.hs b/src/GF/Compile/Extend.hs index 6f76ad093..a2994c01b 100644 --- a/src/GF/Compile/Extend.hs +++ b/src/GF/Compile/Extend.hs @@ -83,8 +83,10 @@ extendAnyInfo isc n i j = errIn ("building extension for" +++ prt n) $ case (i,j (AnyInd b1 m1, AnyInd b2 m2) -> do testErr (b1 == b2) "inconsistent indirection status" - testErr (m1 == m2) $ - "different sources of indirection: " +++ show m1 +++ show m2 +---- commented out as work-around for a spurious problem in +---- TestResourceFre; should look at building of completion. 17/11/2004 +---- testErr (m1 == m2) $ +---- "different sources of indirection: " +++ show m1 +++ show m2 return i _ -> Bad $ "cannot unify information in" ++++ show i ++++ "and" ++++ show j |