Commit 1f911de4 authored by Brian Wignall's avatar Brian Wignall Committed by Marge Bot

Add IsList instance for ZipList (closes #17433)

parent 1f98e47d
......@@ -113,6 +113,8 @@ import Data.Ord
import Data.Version ( Version(..), makeVersion )
import qualified Debug.Trace
import Control.Applicative (ZipList(..))
-- XXX This should really be in Data.Tuple, where the definitions are
maxTupleSize :: Int
maxTupleSize = 62
......@@ -209,6 +211,12 @@ instance IsList [a] where
fromList = id
toList = id
-- | @since
instance IsList (ZipList a) where
type (Item (ZipList a)) = a
fromList = ZipList
toList (ZipList as) = as
-- | @since
instance IsList (NonEmpty a) where
type Item (NonEmpty a) = a
......@@ -261,7 +269,7 @@ atomicModifyMutVar# mv f s =
-- 'SmallMutableArray#' is either the original 'SmallMutableArray#'
-- resized in-place or, if not possible, a newly allocated
-- 'SmallMutableArray#' with the original content copied over.
-- To avoid undefined behaviour, the original 'SmallMutableArray#' shall
-- not be accessed anymore after a 'resizeSmallMutableArray#' has been
-- performed. Moreover, no reference to the old one should be kept in order
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment