diff options
| author | simonpj@microsoft.com <unknown> | 2009-03-30 08:31:03 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-03-30 08:31:03 +0000 |
| commit | 5e2dc400691d3ce0fb59daa8783cea06faba9c97 (patch) | |
| tree | e0f55914e060a51586e8853b021a9a419d0d8713 /compiler/deSugar | |
| parent | 63f6b0868f4948232f87bc4df52c9d3a2ec8f184 (diff) | |
| download | haskell-5e2dc400691d3ce0fb59daa8783cea06faba9c97.tar.gz | |
White space cosmetics only
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsUtils.lhs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs index f2609b7d8e..6eeb43d365 100644 --- a/compiler/deSugar/DsUtils.lhs +++ b/compiler/deSugar/DsUtils.lhs @@ -144,12 +144,12 @@ selectMatchVars :: [Pat Id] -> DsM [Id] selectMatchVars ps = mapM selectMatchVar ps selectMatchVar :: Pat Id -> DsM Id -selectMatchVar (BangPat pat) = selectMatchVar (unLoc pat) -selectMatchVar (LazyPat pat) = selectMatchVar (unLoc pat) -selectMatchVar (ParPat pat) = selectMatchVar (unLoc pat) -selectMatchVar (VarPat var) = return var +selectMatchVar (BangPat pat) = selectMatchVar (unLoc pat) +selectMatchVar (LazyPat pat) = selectMatchVar (unLoc pat) +selectMatchVar (ParPat pat) = selectMatchVar (unLoc pat) +selectMatchVar (VarPat var) = return var selectMatchVar (AsPat var _) = return (unLoc var) -selectMatchVar other_pat = newSysLocalDs (hsPatType other_pat) +selectMatchVar other_pat = newSysLocalDs (hsPatType other_pat) -- OK, better make up one... \end{code} |