From 681f9f875fe80e7f19f9ff0f2d2e92c01eba6fc4 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 10 Sep 2012 20:25:45 +0300 Subject: [PATCH] GHC 7.6 support --- Database/MongoDB/Internal/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Database/MongoDB/Internal/Util.hs b/Database/MongoDB/Internal/Util.hs index 4084d5c..6a79080 100644 --- a/Database/MongoDB/Internal/Util.hs +++ b/Database/MongoDB/Internal/Util.hs @@ -97,7 +97,7 @@ updateAssocs :: (Eq k) => k -> v -> [(k, v)] -> [(k, v)] updateAssocs key valu assocs = case back of [] -> (key, valu) : front; _ : back' -> front ++ (key, valu) : back' where (front, back) = break ((key ==) . fst) assocs -bitOr :: (Bits a) => [a] -> a +bitOr :: (Num a, Bits a) => [a] -> a -- ^ bit-or all numbers together bitOr = foldl (.|.) 0