fix some mixed space+tab indentation
This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast.
This commit is contained in:
parent
8f69d55f03
commit
7b50b3c057
131 changed files with 242 additions and 242 deletions
|
@ -166,7 +166,7 @@ secretKeys :: IO (M.Map KeyId UserId)
|
|||
secretKeys = catchDefaultIO M.empty makemap
|
||||
where
|
||||
makemap = M.fromList . parse . lines <$> readStrict params
|
||||
params = [Params "--with-colons --list-secret-keys --fixed-list-mode"]
|
||||
params = [Params "--with-colons --list-secret-keys --fixed-list-mode"]
|
||||
parse = extract [] Nothing . map (split ":")
|
||||
extract c (Just keyid) (("uid":_:_:_:_:_:_:_:_:userid:_):rest) =
|
||||
extract ((keyid, decode_c userid):c) Nothing rest
|
||||
|
@ -196,7 +196,7 @@ genSecretKey keytype passphrase userid keysize =
|
|||
withHandle StdinHandle createProcessSuccess (proc gpgcmd params) feeder
|
||||
where
|
||||
params = ["--batch", "--gen-key"]
|
||||
feeder h = do
|
||||
feeder h = do
|
||||
hPutStr h $ unlines $ catMaybes
|
||||
[ Just $ "Key-Type: " ++
|
||||
case keytype of
|
||||
|
@ -232,7 +232,7 @@ genRandom highQuality size = checksize <$> readStrict
|
|||
randomquality :: Int
|
||||
randomquality = if highQuality then 2 else 1
|
||||
|
||||
{- The size is the number of bytes of entropy desired; the data is
|
||||
{- The size is the number of bytes of entropy desired; the data is
|
||||
- base64 encoded, so needs 8 bits to represent every 6 bytes of
|
||||
- entropy. -}
|
||||
expectedlength = size * 8 `div` 6
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue