Fix hlint suggestions

Author: Bodigrim

Math/NumberTheory/Primes/Sieve/Atkin.hs

@@ -8,7 +8,6 @@
 --
 
 {-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE MagicHash    #-}
 
 module Math.NumberTheory.Primes.Sieve.Atkin
   ( atkinPrimeList
@@ -131,7 +130,7 @@ traverseLatticePoints1 !sp vec (!x0, !y0) =
       $ head
       $ dropWhile (\(k, _) -> k < spLength sp)
       $ iterate forwardX
-      $ (k0, x0)
+        (k0, x0)
 
     -- Step 4
     adjustY (!k, !y)
@@ -177,7 +176,7 @@ traverseLatticePoints2 sp vec (x0, y0) =
       $ head
       $ dropWhile (\(k, _) -> k < spLength sp)
       $ iterate forwardX
-      $ (k0, x0)
+        (k0, x0)
 
     -- Step 4
     adjustY (!k, !y)

benchmark/Math/NumberTheory/SequenceBench.hs

@@ -38,8 +38,7 @@ eratosthenesBench = bgroup "eratosthenes" $
 
 atkinBench :: Benchmark
 atkinBench = bgroup "atkin" $
-  map (\(x, y) -> bench (show (x, y)) $ nf atkin (x, x + y))
-  [ (10 ^ x, 10 ^ y)
+  [ bench (show (10^x, 10^y)) $ nf atkin (10^x, 10^x + 10^y)
   | x <- [10..17]
   , y <- [6..x-1]
   , x == 10 || y == 7