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:
parent
a12eac060c
commit
469bfa7ff3
5 changed files with 18 additions and 9 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue