diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-25 00:28:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-25 01:27:19 -0400 |
| commit | 678726c10c13481c082743808a5188d28567e2b3 (patch) | |
| tree | a5052eb5b20444e10d3f5d467281ef4c0f5975d1 /RemoteLog.hs | |
| parent | 20259c2955e408a72e0960207fc8be4cbeec2e21 (diff) | |
code simplification thanks to applicative functors
Diffstat (limited to 'RemoteLog.hs')
| -rw-r--r-- | RemoteLog.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RemoteLog.hs b/RemoteLog.hs index 69a82f498..620c0d875 100644 --- a/RemoteLog.hs +++ b/RemoteLog.hs @@ -19,6 +19,7 @@ import Data.List import qualified Data.Map as M import Data.Maybe import Data.Char +import Control.Applicative import qualified Branch import Types @@ -40,7 +41,7 @@ configSet u c = do {- Map of remotes by uuid containing key/value config maps. -} readRemoteLog :: Annex (M.Map UUID RemoteConfig) -readRemoteLog = return . remoteLogParse =<< Branch.get remoteLog +readRemoteLog = remoteLogParse <$> Branch.get remoteLog remoteLogParse :: String -> M.Map UUID RemoteConfig remoteLogParse s = |