Cleanup.

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13564 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 2 insertions, 2 deletions

diff --git a/experimental/frisch/copy_typedef.ml b/experimental/frisch/copy_typedef.ml
index 26fe0be44f..6ba32d9178 100644
--- a/experimental/frisch/copy_typedef.ml
+++ b/experimental/frisch/copy_typedef.ml
@@ -110,7 +110,7 @@ module Main : sig end = struct
         try Hashtbl.find mtypes (path, name)
         with Not_found ->
           failwith
-            (Printf.sprintf "Cannot find type %s in file %s\n%!"
+            (Printf.sprintf "Cannot find module type %s in file %s\n%!"
                (String.concat "." (List.rev (name :: path))) file)
     end
 
@@ -139,7 +139,7 @@ module Main : sig end = struct
           | name :: path -> file, path, name
           end
       | _ ->
-          failwith "Cannot parse argument" (* TODO: loc *)
+          failwith "Cannot parse argument"
 
     method! tydecl = function
       | {ptype_kind = Ptype_abstract;