git.haldean.org del / 74bf86a
fixes for ops in the presence of $ scopedId Haldean Brown 2 years ago
1 changed file(s) with 5 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
3737 case exprs of
3838 [] -> Failure $ BadArity "$" 1 (length exprs)
3939 (name:args) ->
40 case name of
40 case canonicalIfId name of
4141 Id n -> return $ NativeCall n args
4242 _ -> Failure $ BadNativeName name e
43 canonicalIfId x@(Id _) = x
44 canonicalIfId x@(ScopedId _ _) = canonicalId x
45 canonicalIfId x = x
46
4347 loadOpsExpr e = return e
4448
4549 loadOpsDef :: Def -> Artifact Def