diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-06 22:30:35 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-06 22:47:25 +0100 |
| commit | a1e28888540d9dbc4da6330109091ee37a8e3211 (patch) | |
| tree | 318fa32efb3095f57008ad9f749239fa238fab59 /src/Command/Checkout.hs | |
| parent | f056139f1d4b8bbd5ac71b0186541be62bb0e80a (diff) | |
Explicit Tree type for use in checkout
Diffstat (limited to 'src/Command/Checkout.hs')
| -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 "." |