diff options
| author | David Waern <david.waern@gmail.com> | 2011-06-13 17:04:02 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-06-13 17:04:02 +0000 |
| commit | a14dbda0655025e2a9a9929147075282c1795dfd (patch) | |
| tree | 71502f8d11a8a3d206d979a23d001530a28b273f /compiler/rename | |
| parent | f06a106aa9e18670093d755bd47f5cc0f0e0bfb1 (diff) | |
| parent | 3bb66cc52ced70cd7081fb8a2e32a1005528d5a0 (diff) | |
| download | haskell-a14dbda0655025e2a9a9929147075282c1795dfd.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnSource.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 73da1f1d3e..12d4375606 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -666,6 +666,10 @@ rnHsVectDecl (HsVect var (Just rhs)) ; (rhs', fv_rhs) <- rnLExpr rhs ; return (HsVect var' (Just rhs'), fv_rhs `addOneFV` unLoc var') } +rnHsVectDecl (HsNoVect var) + = do { var' <- wrapLocM lookupTopBndrRn var + ; return (HsNoVect var', unitFV (unLoc var')) + } \end{code} %********************************************************* |