Make all --batch input, as well as fromkey and registerurl stdin be processed without requiring it to be in the current encoding.

This commit is contained in:
Joey Hess 2016-12-13 15:35:04 -04:00
parent a12eac060c
commit 469bfa7ff3
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
5 changed files with 18 additions and 9 deletions

View file

@ -45,7 +45,7 @@ startMass = do
next massAdd
massAdd :: CommandPerform
massAdd = go True =<< map (separate (== ' ')) . lines <$> liftIO getContents
massAdd = go True =<< map (separate (== ' ')) <$> batchLines
where
go status [] = next $ return status
go status ((keyname,f):rest) | not (null keyname) && not (null f) = do