Make findWithDefault strict in the default value
authorJohan Tibell <johan.tibell@gmail.com>
Fri, 18 Nov 2011 05:30:53 +0000 (21:30 -0800)
committerJohan Tibell <johan.tibell@gmail.com>
Fri, 18 Nov 2011 05:30:53 +0000 (21:30 -0800)
Data/Map/Strict.hs

index d3a1545..edfc9af 100644 (file)
@@ -286,7 +286,7 @@ import Data.Map.Base hiding
 -- > findWithDefault 'x' 5 (fromList [(5,'a'), (3,'b')]) == 'a'
 
 findWithDefault :: Ord k => a -> k -> Map k a -> a
-findWithDefault def k m = case lookup k m of
+findWithDefault !def k m = case lookup k m of
     Nothing -> def
     Just x  -> x
 #if __GLASGOW_HASKELL__ >= 700