GHC 7.2 compatibility

--HG--
extra : amend_source : 6eaa96f11b7e5d106435ef50b6b1ab519d21fffe

tests/Properties.hs

@@ -1,17 +1,27 @@
+{-# LANGUAGE CPP #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module Properties (tests) where
 
 import Control.Applicative ((<$>))
 import Criterion.Analysis
-import Data.Monoid ((<>))
 import Statistics.Types (Sample)
 import Test.Framework (Test, testGroup)
 import Test.Framework.Providers.QuickCheck2 (testProperty)
 import Test.QuickCheck
 import qualified Data.Vector.Generic as G
 import qualified Data.Vector.Unboxed as U
 
+#if __GLASGOW_HASKELL__ >= 704
+import Data.Monoid ((<>))
+#else
+import Data.Monoid
+
+(<>) :: Monoid m => m -> m -> m
+<> = mappend
+infixr 6 <>
+#endif
+
 instance (Arbitrary a, U.Unbox a) => Arbitrary (U.Vector a) where
   arbitrary = U.fromList <$> arbitrary
   shrink    = map U.fromList . shrink . U.toList