Effects: Basic: upd η-reduce findPathM

This commit is contained in:
Anton-Latukha 2019-04-23 16:10:28 +03:00 committed by John Wiegley
parent cc1e0d208a
commit fadc645551

View file

@ -235,7 +235,7 @@ findPathM
=> [NValue t f m]
-> FilePath
-> m FilePath
findPathM l name = findPathBy path l name
findPathM = findPathBy path
where
path :: MonadEffects t f m => FilePath -> m (Maybe FilePath)
path path = do