Avoid partial functions Data.List.init and Data.List.last

This is to comply with haskell/core-libraries-committee#292

Author: Bodigrim

benchmarks/haskell/Benchmarks/Micro.hs

@@ -2,14 +2,15 @@
 
 module Benchmarks.Micro (benchmark) where
 
+import qualified Data.List.NonEmpty as NE
 import qualified Data.Text.Lazy as TL
 import qualified Data.Text as T
 import Test.Tasty.Bench (Benchmark, Benchmarkable, bgroup, bcompareWithin, bench, nf)
 
 benchmark :: Benchmark
 benchmark = bgroup "Micro"
   [ blinear "lazy-inits--last" 500000 2 0.1 $ \len ->
-      nf (last . TL.inits) (chunks len)
+      nf (NE.last . TL.initsNE) (chunks len)
   , blinear "lazy-inits--map-take1" 500000 2 0.1 $ \len ->
       nf (map (TL.take 1) . TL.inits) (chunks len)
   ]

src/Data/Text/Lazy/Builder/RealFloat.hs

@@ -1,6 +1,9 @@
 {-# LANGUAGE CPP, OverloadedStrings #-}
 {-# LANGUAGE Trustworthy #-}
 
+{-# OPTIONS_GHC -Wno-unrecognised-warning-flags #-}
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 -- |
 -- Module:    Data.Text.Lazy.Builder.RealFloat
 -- Copyright: (c) The University of Glasgow 1994-2002

tests/Tests/Properties/Substrings.hs

@@ -229,9 +229,8 @@ split p xs = loop xs
       (l, []) -> [l]
       (l, _ : s') -> l : loop s'
 
-t_chunksOf_same_lengths k = conjoin . map ((===k) . T.length) . ini . T.chunksOf k
-  where ini [] = []
-        ini xs = init xs
+t_chunksOf_same_lengths k =
+  conjoin . map ((===k) . T.length) . drop 1 . reverse . T.chunksOf k
 
 t_chunksOf_length k t = len === T.length t .||. property (k <= 0 && len == 0)
   where len = L.sum . L.map T.length $ T.chunksOf k t

tests/Tests/Properties/Transcoding.hs

@@ -1,7 +1,10 @@
 -- | Tests for encoding and decoding
 
 {-# LANGUAGE CPP, OverloadedStrings, ScopedTypeVariables #-}
-{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+{-# OPTIONS_GHC -Wno-missing-signatures #-}
+{-# OPTIONS_GHC -Wno-unrecognised-warning-flags #-}
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 module Tests.Properties.Transcoding
     ( testTranscoding
     ) where