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