Migrate the VCL over

1 files changed, 6 insertions, 4 deletions

diff --git a/lib/vcl/sublanguage.ml b/lib/vcl/sublanguage.ml
index f9ca629..b2734ca 100644
--- a/lib/vcl/sublanguage.ml
+++ b/lib/vcl/sublanguage.ml
@@ -1,9 +1,13 @@
 module Make (NT : Nt.S) = struct
+  module Error = struct
+    open Condition
+    let unrecognized_command expr = condition "unrecognized-command" ("expression" |=| (of_sexp expr))
+  end
+
   module Exec = Executor.Make (NT)
 
   type configuration = unit
   type ast = Ast.statement
-  type error = Exec.error
 
   let name = "vcl"
   let parse _ = Ok ()
@@ -11,9 +15,7 @@ module Make (NT : Nt.S) = struct
   let parse_sexp = function
     | Sexplib.Sexp.(List [ Atom "use"; Atom branch ]) -> Ok (Ast.Use branch)
     | sexp ->
-        Error (Exec.ParseError ("unrecognized vcl command: " ^ Sexplib.Sexp.to_string sexp))
+        Error (Error.unrecognized_command sexp)
 
   let execute = Exec.execute
-
-  let sexp_of_error = Exec.sexp_of_error
 end