Skip to content

Commit

Permalink
disambiguate module names
Browse files Browse the repository at this point in the history
  • Loading branch information
@pqwy
pqwy committed Jul 6, 2014
1 parent a6fed2f commit 76d409c
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion lib/mirage.ml
View file
Expand Up @@ -436,7 +436,11 @@ module Entropy = struct
let name _ =
"entropy"

let module_name () = "Entropy"
let module_name () =
match !mode with
| `Unix -> "Entropy_unix_instance"
| `Xen -> "Entropy_xen_instance"


let construction () =
match !mode with
Expand Down

1 comment on commit 76d409c

@samoht
Copy link
Member

@samoht samoht commented on 76d409c Jul 6, 2014

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

After your clarifications on IRC, and the fact that type t = unit, seems that you cannot really have module name clashes here. So this patch is not necessary.

Please sign in to comment.