blob: c180a345a9a9bde4a2094d0593ab67b76baaefda (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
module Command.Checkout (
CheckoutCommand,
) where
import Data.Text (Text)
import Data.Text qualified as T
import Command
import Repo
data CheckoutCommand = CheckoutCommand (Maybe RepoName) Text
instance Command CheckoutCommand where
commandName _ = "checkout"
commandDescription _ = "Checkout (part of) a given repository"
type CommandArguments CheckoutCommand = [ Text ]
commandUsage _ = T.pack $ unlines $
[ "Usage: minici checkout [<repo> [<revision>]] [<option>...]"
]
commandInit _ _ = \case
(name : revision : _) -> CheckoutCommand (Just (RepoName name)) revision
[ name ] -> CheckoutCommand (Just (RepoName name)) "HEAD"
[] -> CheckoutCommand Nothing "HEAD"
commandExec = cmdCheckout
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 "."
|