viewTag2 :: ByteString
         -> ByteString
         -> [Records]
         -> Maybe ((Records,Records), [Records])
viewTag2 = find2By matchTag
viewTag2 :: ByteString
         -> ByteString
         -> [Records]
         -> Maybe ((Records,Records), [Records])
viewTag2 = find2By matchTag
viewTag2 = find2By matchTag