diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-15 11:55:43 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-15 11:55:43 +0100 |
| commit | 9cdf19bad54a6cc4b322396fdd06f4c1ee045b22 (patch) | |
| tree | db4bb68f6cbd3ac4dc9d54a93c25612736b8756c | |
| parent | 199936af5bb902c81f822b2dc57308dc25e18cfc (diff) | |
Make compatible with `deepseq-1.4.0.0`
...by not relying on the default method implementation of `rnf`
| -rw-r--r-- | src/Haddock/Types.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 1f44fde4..7a66e16d 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -342,9 +342,9 @@ instance (NFData a, NFData mod) DocHeader a -> a `deepseq` () -instance NFData Name -instance NFData OccName -instance NFData ModuleName +instance NFData Name where rnf x = seq x () +instance NFData OccName where rnf x = seq x () +instance NFData ModuleName where rnf x = seq x () instance NFData id => NFData (Header id) where rnf (Header a b) = a `deepseq` b `deepseq` () |