feat(std): Add std.disposable

gluon-lang · Dec 3, 2018 · 066655d · 066655d
1 parent 33e1881
commit 066655d
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/std/disposable.glu b/std/disposable.glu
@@ -0,0 +1,20 @@
+let { ? } = import! std.io
+let { (<*) } = import! std.applicative
+
+
+#[implicit]
+type Disposable a = {
+    dispose : a -> IO () 
+}
+
+let dispose ?disposable : [Disposable a] -> a -> IO () = disposable.dispose
+
+let using disposable fn : forall r . [Disposable a] -> a -> (a -> IO r) -> IO r =
+    fn disposable <* dispose disposable
+
+{
+    Disposable,
+
+    dispose,
+    using
+}