Skip to content

Commit

Permalink
Remove external definition for operators
Browse files Browse the repository at this point in the history
  • Loading branch information
rjbou committed May 30, 2018
1 parent 7bbe3d3 commit c835ccb
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions ousMisc.ml
Original file line number Diff line number Diff line change
Expand Up @@ -2,9 +2,8 @@ open OusTypes

let msg fmt = Printf.kprintf print_endline fmt

external (@@) : ('a -> 'b) -> 'a -> 'b = "%apply"

external (|>) : 'a -> ('a -> 'b) -> 'b = "%revapply"
let (|>) a f = f a
let (@@) f a = f a

let (/) = Filename.concat

Expand Down

0 comments on commit c835ccb

Please sign in to comment.