ZeroToTwo.hs

{-# LANGUAGE DeriveFoldable, DeriveFunctor #-}

module Data.Loc.List.ZeroToTwo
  (
  -- Imports
  -- $imports

  -- * Type
    ZeroToTwo (..)
  ) where

import Data.Loc.Internal.Prelude

-- | List of length 0, 1, or 2.
data ZeroToTwo a
  = Zero    -- ^ List of length 0
  | One a   -- ^ List of length 1
  | Two a a -- ^ List of length 2
  deriving (Eq, Ord, Show, Read, Foldable, Functor)

{- $imports

Recommended import:

> import Data.Loc.List.ZeroToTwo (ZeroToTwo)
> import qualified Data.Loc.List.ZeroToTwo as ZeroToTwo

-}