eval: improve type description for primops and applied primops
This can make type errors a little easier to understand.
This commit is contained in:
		
							parent
							
								
									6a3dfcb623
								
							
						
					
					
						commit
						2aa89daab3
					
				
					 1 changed files with 14 additions and 2 deletions
				
			
		| 
						 | 
				
			
			@ -130,6 +130,16 @@ std::ostream & operator << (std::ostream & str, const Value & v)
 | 
			
		|||
}
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
const Value *getPrimOp(const Value &v) {
 | 
			
		||||
    const Value * primOp = &v;
 | 
			
		||||
    while (primOp->type == tPrimOpApp) {
 | 
			
		||||
        primOp = primOp->primOpApp.left;
 | 
			
		||||
    }
 | 
			
		||||
    assert(primOp->type == tPrimOp);
 | 
			
		||||
    return primOp;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
string showType(const Value & v)
 | 
			
		||||
{
 | 
			
		||||
    switch (v.type) {
 | 
			
		||||
| 
						 | 
				
			
			@ -144,8 +154,10 @@ string showType(const Value & v)
 | 
			
		|||
        case tApp: return "a function application";
 | 
			
		||||
        case tLambda: return "a function";
 | 
			
		||||
        case tBlackhole: return "a black hole";
 | 
			
		||||
        case tPrimOp: return "a built-in function";
 | 
			
		||||
        case tPrimOpApp: return "a partially applied built-in function";
 | 
			
		||||
        case tPrimOp:
 | 
			
		||||
            return fmt("the built-in function '%s'", string(v.primOp->name));
 | 
			
		||||
        case tPrimOpApp:
 | 
			
		||||
            return fmt("the partially applied built-in function '%s'", string(getPrimOp(v)->primOp->name));
 | 
			
		||||
        case tExternal: return v.external->showType();
 | 
			
		||||
        case tFloat: return "a float";
 | 
			
		||||
    }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue