Prelude

1 files changed, 1 insertions, 24 deletions

diff --git a/bin/main.ml b/bin/main.ml
index 1c6c6c9..f2986ab 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1,29 +1,6 @@
-open Core
+open Rdcapsis.Prelude
 module Time_ns = Time_ns_unix
 
-module List = struct
-  include List
-
-  let map_result ~(f : 'a -> ('b, 'c) result) : 'a list -> ('b list, 'c) result
-      =
-    let open Result.Let_syntax in
-    let rec go = function
-      | [] -> return []
-      | x :: xs ->
-          let%map x' = f x and xs' = go xs in
-          x' :: xs'
-    in
-    go
-end
-
-module Result = struct
-  include Result
-
-  let unwrap = function
-    | Error _ -> failwith "Result.unwrap: unexpected (Error _)"
-    | Ok v -> v
-end
-
 let () =
   let ams_tz = Time_ns.Zone.find_exn "Europe/Amsterdam" in
   let prim_txs =