diff options
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Checkout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Command/Checkout.hs b/src/Command/Checkout.hs index c180a34..1859c05 100644 --- a/src/Command/Checkout.hs +++ b/src/Command/Checkout.hs @@ -30,5 +30,5 @@ instance Command CheckoutCommand where cmdCheckout :: CheckoutCommand -> CommandExec () cmdCheckout (CheckoutCommand name revision) = do repo <- maybe getDefaultRepo getRepo name - commit <- maybe (fail $ T.unpack $ "revision `" <> revision <> "' not found") return =<< readCommit repo revision - checkoutAt commit "." + tree <- maybe (fail $ T.unpack $ "revision `" <> revision <> "' not found") getCommitTree =<< readCommit repo revision + checkoutAt tree "." |