code cleanup for PR 34, thanks Artem

Author: michaelborkowski

src/Array/Mutable.hs

@@ -117,8 +117,8 @@ set (Array lo'@(GHC.I# lo) hi !arr) i'@(GHC.I# i) !a =
 
 {-# INLINE copy #-}
 copy :: HasPrim a => Array a -> Int -> Array a -> Int -> Int -> Array a
-copy s@(Array lo1'@(GHC.I# lo1) _hi1 src) (GHC.I# src_offset)
-     d@(Array      (GHC.I# lo2) _hi2 dst) (GHC.I# dst_offset)
+copy s@(Array (GHC.I# lo1) _hi1 src) (GHC.I# src_offset)
+     d@(Array (GHC.I# lo2) _hi2 dst) (GHC.I# dst_offset)
      (GHC.I# n) =
 #ifdef PRIM_MUTABLE_ARRAYS
   case copy# (get# src lo1) src (lo1 GHC.+# src_offset) dst (lo2 GHC.+# dst_offset) n of

src/ArrayOperations.hs

@@ -69,7 +69,7 @@ swap xs i j = let !xi   = get xs i
                               left xs == left ys && right xs == right ys &&
                               ys == swap xs i j } @-}
 swap2 :: HasPrim a => Int -> Int -> (Array a -. Array a)
-swap2 i j xs = 
+swap2 i j xs =
   let
     !((Ur !xi), xs1) = get2 i xs
     !((Ur !xj), xs2) = get2 j xs1