Skip to content

Commit

Permalink
back to original
Browse files Browse the repository at this point in the history
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/gadts@10890 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information
Jacques Garrigue committed Dec 10, 2010
1 parent 80b18d1 commit b764550
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions testsuite/tests/typing-gadts/test.ml
Original file line number Diff line number Diff line change
Expand Up @@ -13,10 +13,12 @@ module Exp =
function
| IntLit x -> x
| BoolLit y -> y
| Pair (x,y) -> (eval x,eval y)
| Pair (x,y) ->
(eval x,eval y)
| App (f,a) ->
(eval f) (eval a)
(eval f) (eval a)
| Abs f -> f

end
;;

Expand Down

0 comments on commit b764550

Please sign in to comment.