viewMaybeTag :: ByteString
             -> [Records]
             -> (Maybe Records, [Records])
viewMaybeTag = findMaybe1By matchTag
viewMaybeTag :: ByteString
             -> [Records]
             -> (Maybe Records, [Records])
viewMaybeTag = findMaybe1By matchTag
viewMaybeTag = findMaybe1By matchTag