didn't mean to commit this change yet
This commit is contained in:
parent
43e7044b43
commit
8e00efb938
1 changed files with 1 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue