Permalink
Browse files

<root> is a bit confusing, only replace $HOME into ~

  • Loading branch information...
1 parent e2e2ca7 commit 00fe3a21403d46b1890d52fc52b1045569db7df8 @samoht committed Mar 29, 2013
Showing with 2 additions and 5 deletions.
  1. +2 −5 src/core/opamFilename.ml
View
@@ -284,12 +284,9 @@ let prettify_string s =
Some (Filename.concat short suffix)
else
None in
- match aux ~short:"<root>" ~prefix:!OpamGlobals.root_dir with
+ match aux ~short:"~" ~prefix:(OpamMisc.getenv "HOME") with
| Some p -> p
- | None ->
- match aux ~short:"~" ~prefix:(OpamMisc.getenv "HOME") with
- | Some p -> p
- | None -> s
+ | None -> s
let prettify_dir d =
prettify_string (Dir.to_string d)

0 comments on commit 00fe3a2

Please sign in to comment.