diff options
Diffstat (limited to 'Annex/Version.hs')
| -rw-r--r-- | Annex/Version.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Annex/Version.hs b/Annex/Version.hs index 00e574929..30ad957c3 100644 --- a/Annex/Version.hs +++ b/Annex/Version.hs @@ -26,9 +26,9 @@ versionField = annexConfig "version" getVersion :: Annex (Maybe Version) getVersion = handle <$> getConfig versionField "" - where - handle [] = Nothing - handle v = Just v + where + handle [] = Nothing + handle v = Just v setVersion :: Annex () setVersion = setConfig versionField defaultVersion @@ -41,6 +41,6 @@ checkVersion v | v `elem` supportedVersions = noop | v `elem` upgradableVersions = err "Upgrade this repository: git-annex upgrade" | otherwise = err "Upgrade git-annex." - where - err msg = error $ "Repository version " ++ v ++ - " is not supported. " ++ msg + where + err msg = error $ "Repository version " ++ v ++ + " is not supported. " ++ msg |