rename: Reporter -> Error

2 files changed, 0 insertions, 44 deletions

diff --git a/src/reporter/Reporter.ml b/src/reporter/Reporter.ml
deleted file mode 100644
index ee04c23..0000000
--- a/src/reporter/Reporter.ml
+++ /dev/null
@@ -1,40 +0,0 @@
-module Message =
-struct
-  type t =
-    | IllegalCharacter
-    | SyntaxError
-    | UnboundVariable
-    | IllTyped
-    | CannotInferType
-    | Bug
-
-  let default_severity : t -> Asai.Diagnostic.severity =
-    function
-    | IllegalCharacter -> Error
-    | SyntaxError -> Error
-    | UnboundVariable -> Error
-    | IllTyped -> Error
-    | CannotInferType -> Error
-    | Bug -> Bug
-
-  let short_code : t -> string =
-    function
-    (* parser errors *)
-    | IllegalCharacter -> "E101"
-    | SyntaxError -> "E102"
-    (* elaboration errors *)
-    | UnboundVariable -> "E201"
-    | IllTyped -> "E202"
-    | CannotInferType -> "E202"
-    (* misc *)
-    | Bug -> "E900"
-end
-
-include Asai.Reporter.Make(Message)
-
-let illegal_character ~loc char = fatalf ~loc IllegalCharacter "illegal character '%s'" (Char.escaped char)
-let syntax_error ~loc = fatalf ~loc SyntaxError "syntax error"
-let unbound_variable id = fatalf UnboundVariable "unbound variable '%a'" Ident.pp id
-let expected_universe fmt x = fatalf IllTyped "expected a universe but got %a" fmt x
-
-let bug msg = fatalf Bug msg
diff --git a/src/reporter/dune b/src/reporter/dune
deleted file mode 100644
index ab0f04a..0000000
--- a/src/reporter/dune
+++ /dev/null
@@ -1,4 +0,0 @@
-(library
- (name Reporter)
- (public_name toytt.reporter)
- (libraries asai toytt.ident))