LD3SIGINEZTGCHE7CKMGX55KNKMQ6GIFT35UNPO4YDEB32BK46TAC
66SF6NA6WQF5U3B3CP2QWMCAZUL5DLQI3ASE2EOKCLTEU4PXHDSQC
4QPDDW46NZLFA2GZ4YFOLEMHHP5BPHLBOTSZMOJ3UMGRQ4DH3N7QC
CQUB2A3OVJACRIRDLZNAO6XTFJX45ZNUJQU57A3Q4O6L6BT5ULIAC
-- * Accessors , getPrimer
-- * Accessors
, getPrimer
-- | Get the primer from an index or Nothing if not foundgetPrimer :: Volume -> AlBhed.Index.Index -> Maybe PrimergetPrimer vol index = index ^? traverse . _IndexItem . _1 . filtered (\(Primer vol' _ _) -> vol' == vol)
-- | Get the primer from an index or Nothing if not found
getPrimer :: Volume -> AlBhed.Index.Index -> Maybe Primer
getPrimer vol index = index ^? traverse . _IndexItem . _1 . filtered (\(Primer vol' _ _) -> vol' == vol)