pBlockVersion :: Lexer BlockVersion
pBlockVersion = do
    bvMajor <- decimal
    void $ char '.'
    bvMinor <- decimal
    void $ char '.'
    bvAlt <- decimal
    notFollowedBy $ char '.'
    return BlockVersion{..}
pBlockVersion :: Lexer BlockVersion
pBlockVersion = do
    bvMajor <- decimal
    void $ char '.'
    bvMinor <- decimal
    void $ char '.'
    bvAlt <- decimal
    notFollowedBy $ char '.'
    return BlockVersion{..}
pBlockVersion = do
    bvMajor <- decimal
    void $ char '.'
    bvMinor <- decimal
    void $ char '.'
    bvAlt <- decimal
    notFollowedBy $ char '.'
    return BlockVersion{..}