From 8cce874f8b5f93c3bff65b625c03b3c55f1b5f31 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 24 Oct 2003 18:19:47 +0000 Subject: More woek on interfaces --- src/GF/Compile/Extend.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/Extend.hs') diff --git a/src/GF/Compile/Extend.hs b/src/GF/Compile/Extend.hs index 5bb38a891..5c70a1141 100644 --- a/src/GF/Compile/Extend.hs +++ b/src/GF/Compile/Extend.hs @@ -80,7 +80,7 @@ extendAnyInfo n i j = errIn ("building extension for" +++ prt n) $ case (i,j) of _ -> Bad $ "cannot unify information in" ++++ show i ++++ "and" ++++ show j --- opers declared in one module and defined in an extension are a special case +-- opers declared in an interface and defined in an instance are a special case extendResOper n mt1 m1 mt2 m2 = case (m1,m2) of (Nope,_) -> return $ ResOper (strip mt1) m2 -- cgit v1.2.3