File tree Expand file tree Collapse file tree 1 file changed +9
-2
lines changed Expand file tree Collapse file tree 1 file changed +9
-2
lines changed Original file line number Diff line number Diff line change 1+ {-# LANGUAGE CPP #-}
12{-# LANGUAGE TypeSynonymInstances #-}
23{-# LANGUAGE FlexibleInstances #-}
34
@@ -184,10 +185,12 @@ propStorable storable = monadicIO $ do
184185 size = sizeOf storable
185186
186187
188+ #if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 706)
187189propPopCount :: FasterInteger -> Property
188190propPopCount xfi = xfi >= 0 ==> popCount xfi == popCount xi where
189191 xi :: Integer
190192 xi = fromIntegral xfi
193+ #endif
191194
192195propTestBit :: FasterInteger -> Int16 -> Property
193196propTestBit xfi i = xfi >= 0 ==> testBit xfi bit == testBit xi bit where
@@ -258,8 +261,12 @@ main = defaultMain tests where
258261
259262 testsFasterInteger :: [Test ]
260263 testsFasterInteger =
261- [ testProperty " pop count" propPopCount
262- , testProperty " test bit" propTestBit
264+ [
265+ #if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 706)
266+ testProperty " pop count" propPopCount
267+ ,
268+ #endif
269+ testProperty " test bit" propTestBit
263270 , testProperty " set bit" propSetBit
264271 , testProperty " clear bit" propClearBit
265272 ]
You can’t perform that action at this time.
0 commit comments