diff options
author | 2017-11-15 16:55:38 -0400 | |
---|---|---|
committer | 2017-11-15 16:59:32 -0400 | |
commit | 4888bd597e34dce996fd581bb417ce017099171b (patch) | |
tree | 8b97f6807b5528be6b00c8d21038057ca097ec29 /Annex/Init.hs | |
parent | 01c524779136a688abf312e721abce41d2dd109c (diff) |
enable LambdaCase and convert around 10% of places that could use it
Needs ghc 7.6.1, so minimum base version increased slightly. All builds
are well above this version of ghc, and debian oldstable is as well.
Code that could use lambdacase can be found by running:
git grep -B 1 'case ' | less
and searching in less for "<-"
This commit was sponsored by andrea rota.
Diffstat (limited to 'Annex/Init.hs')
-rw-r--r-- | Annex/Init.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/Init.hs b/Annex/Init.hs index 63f27493b..0754d1f96 100644 --- a/Annex/Init.hs +++ b/Annex/Init.hs @@ -93,8 +93,7 @@ initialize' mversion = do whenM versionSupportsUnlockedPointers $ do configureSmudgeFilter scanUnlockedFiles - v <- checkAdjustedClone - case v of + checkAdjustedClone >>= \case NeedUpgradeForAdjustedClone -> void $ upgrade True versionForAdjustedClone InAdjustedClone -> return () |