diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-08 17:10:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-08 17:10:24 -0400 |
| commit | 88e93f741d32a94a653d9e40659065c63a8d36f8 (patch) | |
| tree | 1665f8fc30230fd494960b01c5529d14a18fb998 /Command/FromKey.hs | |
| parent | c2cf325da3a208cdbc0fba463ab97b1d9e5384c7 (diff) | |
comment
Diffstat (limited to 'Command/FromKey.hs')
| -rw-r--r-- | Command/FromKey.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index dca63aabe..6a81c1f74 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -45,7 +45,9 @@ startMass = do next massAdd massAdd :: CommandPerform -massAdd = go True =<< map (separate (== ' ')) . lines <$> liftIO getContents +massAdd = do + liftIO $ fileEncoding stdin + go True =<< map (separate (== ' ')) . lines <$> liftIO getContents where go status [] = next $ return status go status ((keyname,f):rest) | not (null keyname) && not (null f) = do |