diff options
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 = |