viewMaybeTag2 :: ByteString
             -> ByteString
             -> [Records]
             -> ((Maybe Records, Maybe Records), [Records])
viewMaybeTag2 = findMaybe2By matchTag
viewMaybeTag2 :: ByteString
             -> ByteString
             -> [Records]
             -> ((Maybe Records, Maybe Records), [Records])
viewMaybeTag2 = findMaybe2By matchTag
viewMaybeTag2 = findMaybe2By matchTag