rangeset-0.1.0.0: src/ghc/Data/RangeSet/Internal/Enum.hs

{-# LANGUAGE BangPatterns, Safe #-}
module Data.RangeSet.Internal.Enum (module Data.RangeSet.Internal.Enum) where

import Prelude

import Data.RangeSet.Internal.Types (E)

{-# INLINE range #-}
range :: Enum a => a -> a -> [a]
range l u = [l..u]

{-# INLINE diffE #-}
diffE :: E -> E -> Int
diffE !l !u = u - l + 1