FIX pinentry bug
This commit is contained in:
parent
ae5de98e46
commit
5a9f421dcb
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue