[commit: ghc] master: Add extra Num constraints since the Num superclass of Bits is removed (804108f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/804108f0c0fbc2c5f926e4cb4d30b3891443a079

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

commit 804108f0c0fbc2c5f926e4cb4d30b3891443a079
Author: Bas van Dijk <v.dijk.bas at gmail.com>
Date:   Sat Oct 29 03:38:07 2011 +0200

    Add extra Num constraints since the Num superclass of Bits is removed

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

 compiler/utils/Util.lhs |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index 93800b0..bbf56bc 100644
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -753,7 +753,7 @@ restrictedDamerauLevenshteinDistanceWithLengths m n str1 str2
     else restrictedDamerauLevenshteinDistance' (undefined :: Integer) n m str2 str1
 
 restrictedDamerauLevenshteinDistance'
-  :: (Bits bv) => bv -> Int -> Int -> String -> String -> Int
+  :: (Bits bv, Num bv) => bv -> Int -> Int -> String -> String -> Int
 restrictedDamerauLevenshteinDistance' _bv_dummy m n str1 str2
   | [] <- str1 = n
   | otherwise  = extractAnswer $
@@ -766,7 +766,7 @@ restrictedDamerauLevenshteinDistance' _bv_dummy m n str1 str2
     extractAnswer (_, _, _, _, distance) = distance
 
 restrictedDamerauLevenshteinDistanceWorker
-      :: (Bits bv) => IM.IntMap bv -> bv -> bv
+      :: (Bits bv, Num bv) => IM.IntMap bv -> bv -> bv
       -> (bv, bv, bv, bv, Int) -> Char -> (bv, bv, bv, bv, Int)
 restrictedDamerauLevenshteinDistanceWorker str1_mvs top_bit_mask vector_mask
                                            (pm, d0, vp, vn, distance) char2
@@ -795,7 +795,7 @@ restrictedDamerauLevenshteinDistanceWorker str1_mvs top_bit_mask vector_mask
 sizedComplement :: Bits bv => bv -> bv -> bv
 sizedComplement vector_mask vect = vector_mask `xor` vect
 
-matchVectors :: Bits bv => String -> IM.IntMap bv
+matchVectors :: (Bits bv, Num bv) => String -> IM.IntMap bv
 matchVectors = snd . foldl' go (0 :: Int, IM.empty)
   where
     go (ix, im) char = let ix' = ix + 1