let align version target =
match Version.split version with
|("",_,_,_) -> target
|(pe,_,_,_) ->
let rebase v =
let (_,u,r,b) = Version.split v in
Version.concat (pe,u,r,b)
in
match target with
|`Eq v -> `Eq (rebase v)
|`Hi v -> `Hi (rebase v)
|`Lo v -> `Lo (rebase v)
|`In (v,w) -> `In (rebase v,rebase w)