diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-02-16 00:41:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-02-16 00:44:51 -0400 |
| commit | a1e52f0ce5984058c737ed709fc5d4b6398e019a (patch) | |
| tree | baaeb46b5eb5e7edb4a8a4ef80d6c1ab256bbcba /Command/Log.hs | |
| parent | e7aaa55c53fb54c6dd5a1a1aeb0955b05227676b (diff) | |
hlint
Diffstat (limited to 'Command/Log.hs')
| -rw-r--r-- | Command/Log.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Log.hs b/Command/Log.hs index 4013b535e..d78b60206 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -55,7 +55,7 @@ gourceOption :: Option gourceOption = Option.flag [] "gource" "format output for gource" seek :: [CommandSeek] -seek = [withValue (Remote.uuidDescriptions) $ \m -> +seek = [withValue Remote.uuidDescriptions $ \m -> withValue (liftIO getCurrentTimeZone) $ \zone -> withValue (concat <$> mapM getoption passthruOptions) $ \os -> withFlag gourceOption $ \gource -> @@ -65,7 +65,7 @@ seek = [withValue (Remote.uuidDescriptions) $ \m -> Annex.getField (Option.name o) use o v = [Param ("--" ++ Option.name o), Param v] -start :: (M.Map UUID String) -> TimeZone -> [CommandParam] -> Bool -> +start :: M.Map UUID String -> TimeZone -> [CommandParam] -> Bool -> FilePath -> (Key, Backend) -> CommandStart start m zone os gource file (key, _) = do showLog output =<< readLog <$> getLog key os @@ -91,7 +91,7 @@ showLog outputter ps = do catObject ref normalOutput :: (UUID -> String) -> FilePath -> TimeZone -> Outputter -normalOutput lookupdescription file zone present ts us = do +normalOutput lookupdescription file zone present ts us = liftIO $ mapM_ (putStrLn . format) us where time = showTimeStamp zone ts @@ -100,7 +100,7 @@ normalOutput lookupdescription file zone present ts us = do fromUUID u ++ " -- " ++ lookupdescription u ] gourceOutput :: (UUID -> String) -> FilePath -> Outputter -gourceOutput lookupdescription file present ts us = do +gourceOutput lookupdescription file present ts us = liftIO $ mapM_ (putStrLn . intercalate "|" . format) us where time = takeWhile isDigit $ show ts |