generateParser :: ABC.Parser (ABC.Parser BSL.ByteString) -> BS.ByteString -> ABC.Parser BSL.ByteString
generateParser pg bs = case ABC.parse pg bs of
    ABC.Done _ r -> r
    ABC.Partial f -> case f "" of
        ABC.Done _ r -> r
        _ -> emptyPR
    _ -> emptyPR
generateParser :: ABC.Parser (ABC.Parser BSL.ByteString) -> BS.ByteString -> ABC.Parser BSL.ByteString
generateParser pg bs = case ABC.parse pg bs of
    ABC.Done _ r -> r
    ABC.Partial f -> case f "" of
        ABC.Done _ r -> r
        _ -> emptyPR
    _ -> emptyPR
generateParser pg bs = case ABC.parse pg bs of
    ABC.Done _ r -> r
    ABC.Partial f -> case f "" of
        ABC.Done _ r -> r
        _ -> emptyPR
    _ -> emptyPR