From 3bb1c548e2696abd3f7dc2d7b9fbc27ceb490c36 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 14 Mar 2025 21:18:17 +0100
Subject: Evaluate repo definitions

---
 src/Command/Checkout.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Command/Checkout.hs')

diff --git a/src/Command/Checkout.hs b/src/Command/Checkout.hs
index 397db79..3667e76 100644
--- a/src/Command/Checkout.hs
+++ b/src/Command/Checkout.hs
@@ -15,7 +15,7 @@ import Repo
 data CheckoutCommand = CheckoutCommand CheckoutOptions (Maybe RepoName) (Maybe Text)
 
 data CheckoutOptions = CheckoutOptions
-    { coPath :: Maybe FilePath
+    { coDestination :: Maybe FilePath
     , coSubtree :: Maybe FilePath
     }
 
@@ -31,13 +31,13 @@ instance Command CheckoutCommand where
 
     type CommandOptions CheckoutCommand = CheckoutOptions
     defaultCommandOptions _ = CheckoutOptions
-        { coPath = Nothing
+        { coDestination = Nothing
         , coSubtree = Nothing
         }
 
     commandOptions _ =
-        [ Option [] [ "path" ]
-            (ReqArg (\val opts -> opts { coPath = Just val }) "<path>")
+        [ Option [] [ "dest" ]
+            (ReqArg (\val opts -> opts { coDestination = Just val }) "<path>")
             "destination path"
         , Option [] [ "subtree" ]
             (ReqArg (\val opts -> opts { coSubtree = Just val }) "<path>")
@@ -59,4 +59,4 @@ cmdCheckout (CheckoutCommand CheckoutOptions {..} name mbrev) = do
         Nothing -> return root
         Just subtree -> maybe (fail $ "subtree `" <> subtree <> "' not found in " <> maybe "current worktree" (("revision `" <>) . (<> "'") . T.unpack) mbrev) return =<<
             getSubtree subtree root
-    checkoutAt tree $ maybe "." id coPath
+    checkoutAt tree $ maybe "." id coDestination
-- 
cgit v1.2.3