la_ancapo/stellar-veritas
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

implement reading the secret key from stdin

Browse source
This commit is contained in:
La Ancapo 2026-03-26 18:41:07 +01:00
parent 5072667e16
commit d70a3c9381
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -2,6 +2,7 @@
module Main where module Main where
import Control.Exception
import Control.Monad import Control.Monad
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.ByteString.Base64 as B64 import qualified Data.ByteString.Base64 as B64
@ -26,7 +27,11 @@ main = do
_ -> sign _ -> sign
encrypt = do encrypt = do
encryptedFile <- T.encodeUtf8 <$> getPrivateKey let key = catch getPrivateKey
(\e -> do let err = show (e :: IOException)
hPutStr stderr ("Warning: Couldn't get key from file (" ++ err ++ "), reading from stdin\n")
T.getContents)
encryptedFile <- T.encodeUtf8 <$> key
path <- getPrivateKeyPath path <- getPrivateKeyPath
B.writeFile path =<< encryptData encryptedFile B.writeFile path =<< encryptData encryptedFile