Fixed qwerty typo + small cleanup
This commit is contained in:
parent
4325ba7ee4
commit
0b7a84e949
@ -1070,7 +1070,7 @@ let initial_state : state = (* {
|
||||
inferred for all bindings and expressions, etc.
|
||||
|
||||
Also, we should check at these places that we indeed do not need the
|
||||
state any further. Suwanne *)
|
||||
state any further. Suzanne *)
|
||||
let discard_state (_ : state) = ()
|
||||
|
||||
(* let replace_var_in_state = fun (v : type_variable) (state : state) -> *)
|
||||
|
@ -8,11 +8,7 @@ module SMap = O.SMap
|
||||
|
||||
module Environment = O.Environment
|
||||
|
||||
module Solver = Typer_new.Solver (* struct
|
||||
type state = Placeholder_for_state_of_new_typer
|
||||
let discard_state (_ : state) = ()
|
||||
let initial_state = Placeholder_for_state_of_new_typer
|
||||
end *)
|
||||
module Solver = Typer_new.Solver
|
||||
|
||||
type environment = Environment.t
|
||||
|
||||
|
@ -6,11 +6,7 @@ module O = Ast_typed
|
||||
module SMap = O.SMap
|
||||
module Environment = O.Environment
|
||||
|
||||
module Solver : module type of Typer_new.Solver (* sig
|
||||
type state = Placeholder_for_state_of_new_typer
|
||||
val discard_state : state -> unit
|
||||
val initial_state : state
|
||||
end *)
|
||||
module Solver : module type of Typer_new.Solver
|
||||
|
||||
type environment = Environment.t
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user