fix fs init
This commit is contained in:
parent
4bbd16d3d3
commit
26a089d480
2 changed files with 10 additions and 14 deletions
|
|
@ -13,6 +13,11 @@ type entry = Mfat.entry = {
|
|||
size: int32;
|
||||
}
|
||||
|
||||
let create blk =
|
||||
match Fat.create blk with
|
||||
| Error (`Msg e) -> Fmt.failwith "FAT file system failure: %s." e
|
||||
| Ok fs -> fs
|
||||
|
||||
type t = Mkernel.Block.t Mfat.t
|
||||
|
||||
module type FS = sig
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue