open V1_LWT
open Lwt

module Main (C: CONSOLE) (B: BLOCK) =
  struct

    module F = Fat.Fs.Make (B) (Io_page)

    let start c b =
      C.log c "Create an empty file foo";
      match_lwt F.create b "foo" with
      | `Error _ -> failwith "Cannot create empty file."
      | `Ok () -> return ()

  end