more lambda-case conversion
This commit is contained in:
parent
936d50310d
commit
fc845e6530
29 changed files with 137 additions and 199 deletions
|
@ -55,11 +55,10 @@ getAnnexLinkTarget' file coresymlinks = if coresymlinks
|
|||
check probefilecontent $
|
||||
return Nothing
|
||||
where
|
||||
check getlinktarget fallback = do
|
||||
v <- liftIO $ catchMaybeIO $ getlinktarget file
|
||||
case v of
|
||||
check getlinktarget fallback =
|
||||
liftIO (catchMaybeIO $ getlinktarget file) >>= \case
|
||||
Just l
|
||||
| isLinkToAnnex (fromInternalGitPath l) -> return v
|
||||
| isLinkToAnnex (fromInternalGitPath l) -> return (Just l)
|
||||
| otherwise -> return Nothing
|
||||
Nothing -> fallback
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue