Effects: Basic: upd η-reduce findPathM
This commit is contained in:
parent
cc1e0d208a
commit
fadc645551
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue