From 026ace6302f23837e34e982f6660e09ff38ee97b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 9 Jan 2021 14:24:49 +0100
Subject: Use plain HTML and CSS

---
 src/arrayUtils.ml | 8 --------
 1 file changed, 8 deletions(-)
 delete mode 100644 src/arrayUtils.ml

(limited to 'src/arrayUtils.ml')

diff --git a/src/arrayUtils.ml b/src/arrayUtils.ml
deleted file mode 100644
index 75319d8..0000000
--- a/src/arrayUtils.ml
+++ /dev/null
@@ -1,8 +0,0 @@
-let flatMap (f : 'a -> 'b option) (xs : 'a Js.Array.t) : 'b Js.Array.t =
-  xs |> Js.Array.map f
-  |> Js.Array.filter (fun maybe ->
-         match maybe with Some _ -> true | None -> false)
-  |> Js.Array.map (fun maybe ->
-         match maybe with
-         | Some x -> x
-         | None -> Js.Exn.raiseError "Unexpected None")
-- 
cgit v1.2.3