FIX pinentry bug

This commit is contained in:
Nathan Dwarshuis 2024-03-13 21:58:28 -04:00
parent ae5de98e46
commit 5a9f421dcb
1 changed files with 3 additions and 1 deletions

View File

@ -20,7 +20,9 @@ import UnliftIO.Environment
main :: IO () main :: IO ()
main = runSimpleApp $ do main = runSimpleApp $ do
hSetBuffering stdout LineBuffering 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 pinentryLoop =<< readPinConf
newtype PinConf = PinConf {pcBwName :: T.Text} deriving (Eq, Show) newtype PinConf = PinConf {pcBwName :: T.Text} deriving (Eq, Show)