Silence warning for partial functions on ghc >=9.8

[UlfNorell]

No description provided.

[MaximilianAlgehed]

What's the case against just removing said partial function calls from the code base?

[UlfNorell]

These are the partial functions we get warnings for:

• quickcheck/src/Test/QuickCheck/Arbitrary.hs

  Line 1209 in 97ee742

  | x' <- takeWhile (<< x) (0:[ x - i | i <- tail (iterate (`quot` 2) x) ])

  
  Could be drop 1.

• quickcheck/src/Test/QuickCheck/Function.hs

  Line 143 in 97ee742

  abstract (Table xys) d x = head ([y | (x',y) <- xys, x == x'] ++ [d])

  
  head (someList ++ [d]) is a useful idiom. Not sure I want to change this to maybe fst d (uncons someList)... (when was uncons added to Data.List?). I suppose we could define headWithDefault locally.

• quickcheck/tests/Split.hs

  Lines 16 to 17 in 97ee742

  	once $ forAllShrink (return [-10000..10000]) shrink $ \ns ->
  	map head (group (sort ns)) == sort ns ==> -- no duplicates

  
  map head . group is another common idiom that I'm not sure I want to rewrite just to avoid the warning.

[phadej]

FWIW, map head . group is exactly that if you use head and group from Data.List.NonEmpty