Commit 725e18e

phadejtreeowl

authored and

committed

Prepare containers to specialization of Data.List

1 parent 82c1738 commit 725e18eCopy full SHA for 725e18e

File tree

-3

lines changed

-3

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -122,7 +122,7 @@ import Data.Array.Unboxed ( UArray )`
`122`	`122`	`#else`
`123`	`123`	`import qualified Data.Array as UA`
`124`	`124`	`#endif`
`125`		`-import Data.List`
	`125`	`+import qualifiedData.ListasL`
`126`	`126`	`#if MIN_VERSION_base(4,9,0)`
`127`	`127`	`import Data.Functor.Classes`
`128`	`128`	`#endif`
`@@ -442,7 +442,7 @@ graphFromEdges edges0`
`442`	`442`	`where`
`443`	`443`	`max_v = length edges0 - 1`
`444`	`444`	`bounds0 = (0,max_v) :: (Vertex, Vertex)`
`445`		`- sorted_edges = sortBy lt edges0`
	`445`	`+ sorted_edges = L.sortBy lt edges0`
`446`	`446`	`edges1 = zipWith (,) [0..] sorted_edges`
`447`	`447`
`448`	`448`	`graph = array bounds0 [(,) v (mapMaybe key_vertex ks) \| (,) v (_, _, ks) <- edges1]`

Lines changed: 5 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -202,7 +202,6 @@ import Prelude hiding (`
`202`	`202`	`null, length, lookup, take, drop, splitAt, foldl, foldl1, foldr, foldr1,`
`203`	`203`	`scanl, scanl1, scanr, scanr1, replicate, zip, zipWith, zip3, zipWith3,`
`204`	`204`	`unzip, takeWhile, dropWhile, iterate, reverse, filter, mapM, sum, all)`
`205`		`-import qualified Data.List`
`206`	`205`	`import Control.Applicative (Applicative(..), (<$>), (<**>), Alternative,`
`207`	`206`	`liftA2, liftA3)`
`208`	`207`	`import qualified Control.Applicative as Applicative`
`@@ -212,6 +211,11 @@ import Data.Monoid (Monoid(..))`
`212`	`211`	`import Data.Functor (Functor(..))`
`213`	`212`	`import Utils.Containers.Internal.State (State(..), execState)`
`214`	`213`	`import Data.Foldable (Foldable(foldl, foldl1, foldr, foldr1, foldMap, foldl', foldr'), toList)`
	`214`	`+import qualified Data.Foldable as F`
	`215`	`+`
	`216`	`+#if !(__GLASGOW_HASKELL__ >= 708)`
	`217`	`+import qualified Data.List`
	`218`	`+#endif`
`215`	`219`
`216`	`220`	`#if MIN_VERSION_base(4,9,0)`
`217`	`221`	`import qualified Data.Semigroup as Semigroup`

Comments

(0)