14 lines
304 B
Standard ML
14 lines
304 B
Standard ML
|
structure GapBufferAutomerge: TRANSACTION =
|
||
|
|
struct
|
||
|
|
type t = GapBuffer.t
|
||
|
|
val empty = GapBuffer.empty
|
||
|
|
val insert = GapBuffer.insert
|
||
|
|
val delete = GapBuffer.delete
|
||
|
|
val toString = GapBuffer.toString
|
||
|
|
val txns = AutomergePaper.txns
|
||
|
|
end
|
||
|
|
|
||
|
|
structure Main = Run(GapBufferAutomerge)
|
||
|
|
|
||
|
|
val _ = Main.run ()
|