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