diff options
| author | sof <unknown> | 2003-10-20 17:19:24 +0000 |
|---|---|---|
| committer | sof <unknown> | 2003-10-20 17:19:24 +0000 |
| commit | 187d7618e86c8db865c0cdcc38d0633c23cf1d88 (patch) | |
| tree | f4fa0cd9d75889507ea427a2e378631bd26f6109 /src/Main.hs | |
| parent | d510b517e44664c581e5fe93da046ee1ba42945c (diff) | |
[haddock @ 2003-10-20 17:19:22 by sof]
support for i-parameters + zip comprehensions
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3e4afca2..c600f0b3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -619,7 +619,7 @@ extractClassDecl c mdl tvs0 (HsTypeSig loc [n] ty doc) _ -> HsTypeSig loc [n] (HsForAllType Nothing ctxt ty) doc where - ctxt = [(Qual mdl c, map HsTyVar tvs0)] + ctxt = [HsAssump (Qual mdl c, map HsTyVar tvs0)] extractClassDecl _ _ _ d = error $ "Main.extractClassDecl: unexpected decl: " ++ show d |