Commit 74bf86aaf766941a463d5740cb28103a1b4c33ca - del

fixes for ops in the presence of $ scopedId Haldean Brown 3 years ago

1 changed file(s) with 5 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

src/Language/Del/Ops.hs less more

37	37	case exprs of
38	38	[] -> Failure $ BadArity "$" 1 (length exprs)
39	39	(name:args) ->
40		case name of
	40	case canonicalIfId name of
41	41	Id n -> return $ NativeCall n args
42	42	_ -> Failure $ BadNativeName name e
	43	canonicalIfId x@(Id _) = x
	44	canonicalIfId x@(ScopedId _ _) = canonicalId x
	45	canonicalIfId x = x
	46
43	47	loadOpsExpr e = return e
44	48
45	49	loadOpsDef :: Def -> Artifact Def