debugger/serialize.ml

   1 open Base
   2
   3 module StrMonoid = struct
   4   type t = string
   5   let mempty = ""
   6   let mappend = (^)
   7 end
   8
   9 module M = Writer.Make(StrMonoid)
  10
  11
  12 let db _ = assert false
  13 let dw _ = assert false
  14 let dd _ = assert false
  15 let sz _ = assert false
  16