diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-11-15 11:55:43 +0100 |
---|---|---|
committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-12 06:50:53 +0000 |
commit | d5950c8a95dc46fe2702d04f724145c73355043e (patch) | |
tree | 221aed0f0b9b51f3d8c88c1166e5193e3f869f46 /haddock-api/src | |
parent | ccebf5d18e3f5ba187581e8c4cc3f79f33efb03b (diff) |
Make compatible with `deepseq-1.4.0.0`
...by not relying on the default method implementation of `rnf`
Diffstat (limited to 'haddock-api/src')
-rw-r--r-- | haddock-api/src/Haddock/Types.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs index 71139971..e93294a0 100644 --- a/haddock-api/src/Haddock/Types.hs +++ b/haddock-api/src/Haddock/Types.hs @@ -343,9 +343,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` () |