viewTag :: ByteString
        -> [Records]
        -> Maybe (Records, [Records])
viewTag = find1By matchTag
viewTag :: ByteString
        -> [Records]
        -> Maybe (Records, [Records])
viewTag = find1By matchTag
viewTag = find1By matchTag