pin import: revert pins if no solution and on user abort

ocaml · Aug 7, 2014 · 72f4f46 · 72f4f46
1 parent 87a0197
commit 72f4f46
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/client/opamSwitchCommand.ml b/src/client/opamSwitchCommand.ml
@@ -386,6 +386,9 @@ let import_t importfile t =
       revert_pins ();
       raise e
   in
+  (match solution with
+   | No_solution | Aborted -> revert_pins ()
+   | Error _ | OK _ | Nothing_to_do -> ());
   OpamSolution.check_solution t solution
 
 let export filename =