17 lines
270 B
C
17 lines
270 B
C
#include <stdio.h>
|
|
|
|
#include "EvalHaskell.h"
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
int *p;
|
|
hs_init(&argc, &argv);
|
|
p = hs_eval_i("show $ case 1 + 2 in{-wrong-} x -> x");
|
|
if (p == NULL)
|
|
printf("failed!\n");
|
|
else
|
|
printf("%d\n",*p);
|
|
hs_exit();
|
|
return 0;
|
|
}
|