diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-08-06 21:20:26 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-08-06 21:20:26 +0000 |
| commit | df540a334232b9f2da702e48e1ebaf4b289997bc (patch) | |
| tree | f8a88eec430ad4955dcb142875a2d98776d639a6 /compiler/hsSyn/HsUtils.lhs | |
| parent | 5dc9a4504ea4d3df462081a7dbfde0431eac133e (diff) | |
| download | haskell-df540a334232b9f2da702e48e1ebaf4b289997bc.tar.gz | |
GADT fixes
Wed Jul 26 06:00:53 EDT 2006 kevind@bu.edu
Diffstat (limited to 'compiler/hsSyn/HsUtils.lhs')
| -rw-r--r-- | compiler/hsSyn/HsUtils.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs index d9c45e6529..50d12a3dc7 100644 --- a/compiler/hsSyn/HsUtils.lhs +++ b/compiler/hsSyn/HsUtils.lhs @@ -397,6 +397,7 @@ collectl (L l pat) bndrs go (TypePat ty) = bndrs go (DictPat ids1 ids2) = map noLoc ids1 ++ map noLoc ids2 ++ bndrs + go (CoPat _ pat ty) = collectl (noLoc pat) bndrs \end{code} \begin{code} |