diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-12-23 15:49:58 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-12-23 15:49:58 +0000 |
| commit | 45e5d834d473ab2f5930371e272a438590bc3f7e (patch) | |
| tree | a63e7fc231c106aeb4fbed0eddf85eb4464a199e | |
| parent | a6ab9666557d66dfb646817ac7f9ea0429fd7a9b (diff) | |
Track changes in HsBang
| -rw-r--r-- | src/Haddock/Convert.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs index aca12188..28f43a0a 100644 --- a/src/Haddock/Convert.hs +++ b/src/Haddock/Convert.hs @@ -198,7 +198,7 @@ synifyDataCon use_gadt_syntax dc = noLoc $ linear_tys = zipWith (\ty bang -> let tySyn = synifyType WithinType ty src_bang = case bang of - HsUnpack -> HsBang True + HsUnpack {} -> HsBang True HsStrict -> HsBang False _ -> bang in case src_bang of |