Simplify NFData instances

patperry · Apr 21, 2013 · 05cbde7 · 05cbde7
1 parent c798831
commit 05cbde7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/Data/Summary/Bool.hs b/lib/Data/Summary/Bool.hs
@@ -53,8 +53,8 @@ instance Monoid Summary where
     mempty = empty
     mappend = union
 
-instance NFData Summary where
-    rnf s = s `seq` ()
+instance NFData Summary
+
 
 -- | Get a summary of a list of values.
 summary :: [Bool] -> Summary

diff --git a/lib/Data/Summary/Double.hs b/lib/Data/Summary/Double.hs
@@ -57,8 +57,8 @@ instance Monoid Summary where
     mempty = empty
     mappend = union
 
-instance NFData Summary where
-    rnf s = s `seq` ()
+instance NFData Summary
+
 
 -- | Get a summary of a list of values.
 summary :: [Double] -> Summary