diff options
author | Malte Voos <git@mal.tc> | 2024-07-08 22:10:12 +0200 |
---|---|---|
committer | Malte Voos <git@mal.tc> | 2024-07-08 22:10:12 +0200 |
commit | 66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4 (patch) | |
tree | bfbd237f12a3b973d0b93556e6235ced045db701 /src/error | |
parent | 97f84ccace4e634b4e02178a702818e69292dc9f (diff) | |
download | toytt-66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4.tar.gz toytt-66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4.zip |
rename Ident -> Name
Diffstat (limited to 'src/error')
-rw-r--r-- | src/error/Error.ml | 4 | ||||
-rw-r--r-- | src/error/dune | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/error/Error.ml b/src/error/Error.ml index 9a5ea9e..7a6a681 100644 --- a/src/error/Error.ml +++ b/src/error/Error.ml @@ -42,8 +42,8 @@ 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 unbound_variable name = fatalf UnboundVariable + "unbound variable '%a'" Name.pp name let type_mismatch ?loc fmt_expected expected fmt_found found = fatalf ?loc TypeMismatch "@[<v>type mismatch:@,expected: @[%a@]@, found: @[%a@]@]" fmt_expected expected fmt_found found diff --git a/src/error/dune b/src/error/dune index 857f7bc..916be3c 100644 --- a/src/error/dune +++ b/src/error/dune @@ -1,4 +1,4 @@ (library (name Error) (public_name toytt.error) - (libraries asai toytt.ident)) + (libraries asai toytt.name)) |