Source file disk.ml

1
2
3
4
5
6
7
8
module Stub = struct
  let cat = TestDisk.get
end

include (val (if Injector_config.use_test_stubbing
              then (module Stub : Disk_sig.S)
              else (module RealDisk : Disk_sig.S)
             ))