From 398b6093a2e3ddf5c34fd914c79733712aadb976 Mon Sep 17 00:00:00 2001 From: John Else Date: Fri, 13 Nov 2015 21:28:55 +0000 Subject: [PATCH] Remove dead code Signed-off-by: John Else --- lib/osc_transport.ml | 2 -- lib/osc_transport.mli | 2 -- lwt/osc_lwt.ml | 2 -- unix/osc_unix.ml | 2 -- 4 files changed, 8 deletions(-) diff --git a/lib/osc_transport.ml b/lib/osc_transport.ml index 55b5c70..75ba7e1 100644 --- a/lib/osc_transport.ml +++ b/lib/osc_transport.ml @@ -4,8 +4,6 @@ module type TRANSPORT = sig val (>>=) : 'a t -> ('a -> 'b t) -> 'b t val (>|=) : 'a t -> ('a -> 'b) -> 'b t val return : 'a -> 'a t - - val raise_exn : exn -> 'a t end type sockaddr diff --git a/lib/osc_transport.mli b/lib/osc_transport.mli index f38ef13..9ff1ace 100644 --- a/lib/osc_transport.mli +++ b/lib/osc_transport.mli @@ -10,8 +10,6 @@ module type TRANSPORT = sig val (>>=) : 'a t -> ('a -> 'b t) -> 'b t val (>|=) : 'a t -> ('a -> 'b) -> 'b t val return : 'a -> 'a t - - val raise_exn : exn -> 'a t end type sockaddr diff --git a/lwt/osc_lwt.ml b/lwt/osc_lwt.ml index e4e36a9..221dec9 100644 --- a/lwt/osc_lwt.ml +++ b/lwt/osc_lwt.ml @@ -3,8 +3,6 @@ module Io = struct let (>>=) = Lwt.(>>=) let (>|=) = Lwt.(>|=) let return x = Lwt.return x - - let raise_exn = Lwt.fail end module UdpTransport = struct diff --git a/unix/osc_unix.ml b/unix/osc_unix.ml index e8013d9..44a2213 100644 --- a/unix/osc_unix.ml +++ b/unix/osc_unix.ml @@ -3,8 +3,6 @@ module Io = struct let (>>=) x f = f x let (>|=) x f = f x let return x = x - - let raise_exn = raise end module UdpTransport = struct