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 4.9.0.0
instance IsList (NonEmpty a) where
type Item (NonEmpty a) = a
......
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