mirror of https://github.com/voidlizard/hbs2
60 lines
1.7 KiB
Haskell
60 lines
1.7 KiB
Haskell
module Main where
|
|
|
|
import HBS2.Prelude
|
|
|
|
import HBS2Git.App
|
|
import HBS2Git.Export
|
|
import HBS2Git.ListRefs
|
|
|
|
import RunShow
|
|
|
|
import Options.Applicative as O
|
|
import Control.Monad
|
|
|
|
main :: IO ()
|
|
main = join . customExecParser (prefs showHelpOnError) $
|
|
info (helper <*> parser)
|
|
( fullDesc
|
|
<> header "hbsync block fetch"
|
|
<> progDesc "fetches blocks from hbsync peers"
|
|
)
|
|
where
|
|
parser :: Parser (IO ())
|
|
parser = hsubparser ( command "export" (info pExport (progDesc "export repo"))
|
|
<> command "list-refs" (info pListRefs (progDesc "list refs"))
|
|
<> command "show" (info pShow (progDesc "show various types of objects"))
|
|
<> command "tools" (info pTools (progDesc "misc tools"))
|
|
)
|
|
|
|
pExport = do
|
|
keyfile <- strArgument (metavar "KEIRING-FILE")
|
|
pure $ runApp WithLog do
|
|
runExport' keyfile
|
|
|
|
pListRefs = do
|
|
pure $ runApp NoLog runListRefs
|
|
|
|
showReader s = if s == "config"
|
|
then Just ShowConfig
|
|
else ShowRef <$> fromStringMay s
|
|
|
|
pShow = do
|
|
object <- optional $
|
|
argument (maybeReader showReader) (metavar "object" <> help "<HASH-REF> | config")
|
|
|
|
pure $ runApp NoLog (runShow object)
|
|
|
|
pTools = hsubparser ( command "scan" (info pToolsScan (progDesc "scan reference"))
|
|
<> command "refs" (info pToolsGetRefs (progDesc "list references"))
|
|
|
|
)
|
|
|
|
pToolsScan = do
|
|
ref <- strArgument (metavar "HASH-REF")
|
|
pure $ runApp WithLog (runToolsScan ref)
|
|
|
|
pToolsGetRefs = do
|
|
ref <- strArgument (metavar "HASH-REF")
|
|
pure $ runApp WithLog (runToolsGetRefs ref)
|
|
|