diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-21 14:17:31 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-23 07:46:37 +0000 |
| commit | 19632501654cac9d84088c69bd4291009292c5c3 (patch) | |
| tree | 7056350b395d00f23451652e2d34b9f4ebad37cc /compiler/deSugar/DsMeta.hs | |
| parent | b55ad1b33a30996a2ec4f85382f9c1cdca42e30f (diff) | |
| download | haskell-19632501654cac9d84088c69bd4291009292c5c3.tar.gz | |
Comments and white space
Diffstat (limited to 'compiler/deSugar/DsMeta.hs')
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 5153dd96f2..3035e9f845 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -665,9 +665,9 @@ repBangTy ty = do repDerivs :: HsDeriving Name -> DsM (Core TH.CxtQ) repDerivs deriv = do - let clauses - | Just (L _ ctxt) <- deriv = ctxt - | otherwise = [] + let clauses = case deriv of + Nothing -> [] + Just (L _ ctxt) -> ctxt tys <- repList typeQTyConName (rep_deriv . hsSigType) clauses |