mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid deprecation warning

Browse source
This commit is contained in:
Joey Hess 2019-12-06 15:44:58 -04:00
parent a0168cd9a2
commit a7004375ec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Config.hs
View file

@ -12,7 +12,7 @@ import Logs.Config
import Config import Config
import Git.Types (ConfigKey(..), fromConfigValue) import Git.Types (ConfigKey(..), fromConfigValue)
import qualified Data.ByteString as S import qualified Data.ByteString.Char8 as S8
cmd :: Command cmd :: Command
cmd = noMessages $ command "config" SectionSetup cmd = noMessages $ command "config" SectionSetup
@ -65,5 +65,5 @@ seek (GetConfig ck) = commandAction $
startingCustomOutput (ActionItemOther Nothing) $ do startingCustomOutput (ActionItemOther Nothing) $ do
getGlobalConfig ck >>= \case getGlobalConfig ck >>= \case
Nothing -> return () Nothing -> return ()
Just (ConfigValue v) -> liftIO $ S.putStrLn v Just (ConfigValue v) -> liftIO $ S8.putStrLn v
next $ return True next $ return True