[#34,#30] Added a hack to get unitFn working in context

See #34 for all the information about why this hack is necessary Closes #30
ohua-dev · Feb 22, 2019 · dd23e84 · dd23e84
1 parent 722ba8f
commit dd23e84
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/core/src/Ohua/ALang/Util.hs b/core/src/Ohua/ALang/Util.hs
@@ -158,7 +158,13 @@ findLonelyLiterals =
         f@Apply {} ->
             const $
             if areAllLits args
-                then args
+                then take 1 $
+                     -- HACK see #34
+                     filter
+                         (\case
+                              Lit (FunRefLit _) -> False
+                              _ -> True)
+                         args
                 -- We could also return `[]` in the else branch, because the
                 -- expression should be normalized, but this is cleaner
                 else args >>= findLonelyLiterals