[commit: haddock] T6018-injective-type-families, adamse-D1033, ghc-head, wip/10268, wip/10313, wip/D548-master, wip/D548-master-2, wip/T10483, wip/T8584, wip/T9840, wip/api-ann-hstylit, wip/api-ann-hstylit-1, wip/api-ann-hstylit-2, wip/api-ann-hstylit-3, wip/api-ann-hstylit-4, wip/api-ann-hstylit-5, wip/ast-prepare-annotations-final3, wip/ast-prepare-annotations-final4, wip/ast-prepare-annotations-final5, wip/ast-prepare-annotations-final6, wip/orf-reboot, wip/pattern-synonyms, wip/trac-9744: Make compatible with `deepseq-1.4.0.0` (9cdf19b)

git at git.haskell.org git at git.haskell.org
Wed Jul 8 08:33:01 UTC 2015


Repository : ssh://git@git.haskell.org/haddock

On branches: T6018-injective-type-families,adamse-D1033,ghc-head,wip/10268,wip/10313,wip/D548-master,wip/D548-master-2,wip/T10483,wip/T8584,wip/T9840,wip/api-ann-hstylit,wip/api-ann-hstylit-1,wip/api-ann-hstylit-2,wip/api-ann-hstylit-3,wip/api-ann-hstylit-4,wip/api-ann-hstylit-5,wip/ast-prepare-annotations-final3,wip/ast-prepare-annotations-final4,wip/ast-prepare-annotations-final5,wip/ast-prepare-annotations-final6,wip/orf-reboot,wip/pattern-synonyms,wip/trac-9744
Link       : http://git.haskell.org/haddock.git/commitdiff/9cdf19bad54a6cc4b322396fdd06f4c1ee045b22

>---------------------------------------------------------------

commit 9cdf19bad54a6cc4b322396fdd06f4c1ee045b22
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Sat Nov 15 11:55:43 2014 +0100

    Make compatible with `deepseq-1.4.0.0`
    
    ...by not relying on the default method implementation of `rnf`


>---------------------------------------------------------------

9cdf19bad54a6cc4b322396fdd06f4c1ee045b22
 src/Haddock/Types.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 1f44fde..7a66e16 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` ()



More information about the ghc-commits mailing list