MNET: wip devices

src/fat.ml

@@ -0,0 +1,17 @@
+
+
+module Fat = Mfat.Make (struct
+  include Mkernel.Block
+
+  let read = atomic_read
+
+  let write = atomic_write
+end)
+
+include Fat
+
+type t = Mkernel.Block.t Mfat.t
+
+module type FS = sig
+val t : t
+end