diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-12-08 17:10:48 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-12-08 17:10:48 -0400 |
commit | b6b4f8a7d2ac673f105f32c46f8a2f814aa3db28 (patch) | |
tree | c409a642364d2ec6d554a2ddc1244463cbc8d646 | |
parent | 88e93f741d32a94a653d9e40659065c63a8d36f8 (diff) |
didn't mean to commit this change yet
-rw-r--r-- | Command/FromKey.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index 6a81c1f74..dca63aabe 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -45,9 +45,7 @@ startMass = do next massAdd massAdd :: CommandPerform -massAdd = do - liftIO $ fileEncoding stdin - go True =<< map (separate (== ' ')) . lines <$> liftIO getContents +massAdd = 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 |