module AlBhed.Index
    ( -- * Constructors
      empty
    , singleton
    ) where
import           Data.NonEmptyList (NonEmptyList)
import qualified Data.NonEmptyList as NonEmptyList
import           AlBhed
import           Location
type Index = [IndexItem]
type IndexItem = (Primer, NonEmptyList Location)
empty :: Index
empty = []
singleton :: Primer -> Location -> Index
singleton x y = [(x, NonEmptyList.singleton y)]
-- | Add a location to the primer in index
addLocation :: Primer -> Location -> Index -> Index
addLocation primer location index = undefined

        , AlBhed.Index