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 ()
|