blob: 3478da26cd53dd0f47828bba86b5d4fce1e4fda4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
type connection = unit
type transaction = unit
let connect (_: Concepts.Configuration.configuration) = failwith "TODO"
let start (_: connection) = failwith "TODO"
let commit (_: transaction) = failwith "TODO"
let abort (_: transaction) = failwith "TODO"
let get (_: transaction) (_: Concepts.Hash.hash) = failwith "TODO"
let put (_: transaction) (_: Concepts.Hash.hash) (_: Concepts.Representation.blob) = failwith "TODO"
|
