phole :: HParser Pattern
phole = addRange (
    do
        lexHOLE
        return $ \r -> Pattern_Hole r (-1)
    )
phole :: HParser Pattern
phole = addRange (
    do
        lexHOLE
        return $ \r -> Pattern_Hole r (-1)
    )
phole = addRange (
    do
        lexHOLE
        return $ \r -> Pattern_Hole r (-1)
    )