Seq.hs

module Mit.Seq where

import qualified Data.Foldable as Foldable
import Data.Sequence

pattern NonEmpty :: Seq a
pattern NonEmpty <- _ :<| _

{-# COMPLETE Empty, NonEmpty #-}

pattern Singleton :: Seq a
pattern Singleton <- _ :<| Empty

toList :: Seq a -> [a]
toList =
  Foldable.toList