FIX pinentry bug
This commit is contained in:
parent
ae5de98e46
commit
5a9f421dcb
|
@ -20,7 +20,9 @@ import UnliftIO.Environment
|
|||
main :: IO ()
|
||||
main = runSimpleApp $ do
|
||||
hSetBuffering stdout LineBuffering
|
||||
logInfo "OK Pleased to meet you"
|
||||
-- NOTE: can't use RIO logging here since that will do to stderr and not
|
||||
-- stdout
|
||||
putStrLnT "OK Pleased to meet you"
|
||||
pinentryLoop =<< readPinConf
|
||||
|
||||
newtype PinConf = PinConf {pcBwName :: T.Text} deriving (Eq, Show)
|
||||
|
|
Loading…
Reference in New Issue