From 3eb6125609245c6588df2cacc3102b8e78093ea5 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sat, 18 Feb 2023 22:50:38 +0100 Subject: expand like a prohuman --- app/Load.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Load.hs') diff --git a/app/Load.hs b/app/Load.hs index b1ad0a5..23b92fe 100644 --- a/app/Load.hs +++ b/app/Load.hs @@ -60,9 +60,9 @@ expansion noexpand expander output x = do ] else noexpand o x -queryExpansion = expansion (\_ -> id) "query_expansion" "call" +queryExpansion = expansion (\_ -> id) "expand_query" "call" -loadExpansion = expansion (\o x -> IR.CallI o [x]) "load_expansion" "assert" +loadExpansion = expansion (\o x -> IR.CallI o [x]) "expand_load" "assert" processInput fn queryMode input = do asts <- except $ tokenize fn input >>= parse fn -- cgit v1.2.3