getIndices :: (Ord a) => [[a]]  -- ^ a list containing a list of indices
           -> a                 -- ^ the current index position
           -> [a]               -- ^ the list of indices containing that index position
getIndices lst ind = fromMaybe [] (Map.lookup ind listOfIndices)
    where listOfIndices = Map.fromList mappedIndices
          mappedIndices = concatMap (\x -> zip x (repeat x)) lst

-- | Concatenates list of the arc and ring indices containing the current index and returns it.
getIndices :: (Ord a) => [[a]]  -- ^ a list containing a list of indices
           -> a                 -- ^ the current index position
           -> [a]
getIndices lst ind = fromMaybe [] (Map.lookup ind listOfIndices)
    where listOfIndices = Map.fromList mappedIndices
          mappedIndices = concatMap (\x -> zip x (repeat x)) lst

-- | Concatenates list of the arc and ring indices containing the current index and returns it.
getIndices lst ind = fromMaybe [] (Map.lookup ind listOfIndices)
    where listOfIndices = Map.fromList mappedIndices
          mappedIndices = concatMap (\x -> zip x (repeat x)) lst

-- | Concatenates list of the arc and ring indices containing the current index and returns it.