diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
| commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
| tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /Git/Queue.hs | |
| parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) | |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Git/Queue.hs')
| -rw-r--r-- | Git/Queue.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Queue.hs b/Git/Queue.hs index e080476b7..0016be472 100644 --- a/Git/Queue.hs +++ b/Git/Queue.hs @@ -18,7 +18,7 @@ import qualified Data.Map as M import System.IO import System.Cmd.Utils import Data.String.Utils -import Control.Monad (unless, forM_) +import Control.Monad (forM_) import Utility import Git @@ -61,7 +61,7 @@ add (Queue n m) subcommand params files = Queue (n + 1) m' -- can be a lot of files per item. So, optimise adding -- files. m' = M.insertWith' const action fs m - fs = files ++ (M.findWithDefault [] action m) + fs = files ++ M.findWithDefault [] action m {- Number of items in a queue. -} size :: Queue -> Int |