staticvoid
/
4r
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove offline mode since it' not implemented yet

main
staticvoid 2022-06-27 22:10:43 +03:00
parent d465f223ef
commit bfd3ad7535
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Cli.hs
View File

@ -15,8 +15,7 @@ import Options.Applicative
-- TODO: add debug -- TODO: add debug
data Options = Options data Options = Options
{ offline :: Bool { noAnsi :: Bool
, noAnsi :: Bool
, columns :: Maybe Integer , columns :: Maybe Integer
, choice :: Choice , choice :: Choice
} }
@ -24,8 +23,7 @@ data Options = Options
optsParser :: Parser Options optsParser :: Parser Options
optsParser = optsParser =
Options <$> switch (long "offline" <> short 'N' <> help "only access cache") Options <$> switch (long "no-ansi" <> short 'A' <> help "disable ANSI codes")
<*> switch (long "no-ansi" <> short 'A' <> help "disable ANSI codes")
<*> (Just <$> option auto (metavar "COLUMNS_NUMBER" <> long "columns" <> short 'c' <> help "number of columns") <*> (Just <$> option auto (metavar "COLUMNS_NUMBER" <> long "columns" <> short 'c' <> help "number of columns")
<|> pure Nothing) <|> pure Nothing)
<*> choiceParser <*> choiceParser

4
app/Main.hs
View File

@ -57,9 +57,7 @@ program GetTopic{topic_id} = do
main :: IO () main :: IO ()
main = do main = do
Options{offline, noAnsi, choice} <- getOpts Options{noAnsi, choice} <- getOpts
when offline do
error "Offline mode is not yet implemented"
manager' <- newManager $ manager' <- newManager $
defaultManagerSettings defaultManagerSettings
& (managerSetProxy $ proxyEnvironmentNamed "I2P_HTTP_PROXY" $ Just defProxy) & (managerSetProxy $ proxyEnvironmentNamed "I2P_HTTP_PROXY" $ Just defProxy)