equal
deleted
inserted
replaced
314 (result_json, (purged, retained)) |
314 (result_json, (purged, retained)) |
315 } |
315 } |
316 |
316 |
317 override val command_body: Server.Command_Body = |
317 override val command_body: Server.Command_Body = |
318 { case (context, Purge_Theories(args)) => |
318 { case (context, Purge_Theories(args)) => |
319 val session = context.server.the_session(args.session_id) |
319 val session = context.server.the_session(args.session_id) |
320 command(args, session)._1 |
320 command(args, session)._1 |
321 } |
321 } |
322 } |
322 } |
323 } |
323 } |
324 |
324 |
325 class Server_Commands extends Server.Commands( |
325 class Server_Commands extends Server.Commands( |