18 lines
198 B
OCaml
18 lines
198 B
OCaml
|
|
||
|
|
|
||
|
|
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
|