diff options
author | 2016-12-13 15:35:04 -0400 | |
---|---|---|
committer | 2016-12-13 15:35:04 -0400 | |
commit | 91546b8c484bf5b40bc9cafcba72679378b2d60a (patch) | |
tree | 86ba4a5d3a977ea579cd3c9c0b97212af81fef79 /Command/FromKey.hs | |
parent | 189e261a42020f6980854cfd4e0bcd32941455b5 (diff) |
Make all --batch input, as well as fromkey and registerurl stdin be processed without requiring it to be in the current encoding.
Diffstat (limited to 'Command/FromKey.hs')
-rw-r--r-- | Command/FromKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index dca63aabe..c1e3a7965 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -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 |