github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Fix function call

Browse Source
This commit is contained in:
joshvera 2018-08-08 14:25:19 -04:00
parent 1fc75519fe
commit 77213d72e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Control/Abstract/Evaluator/Spec.hs
View File

@ -24,7 +24,7 @@ spec = parallel $ do
it "calls functions" $ do
(_, expected) <- evaluate $ do
identity <- function [name "x"] lowerBound (variable (name "x"))
identity <- function Nothing [name "x"] lowerBound (variable (name "x"))
recv <- box unit
addr <- box (integer 123)
call identity recv [addr]