REF remove dead code
This commit is contained in:
parent
3c6dafe8bd
commit
802de6965e
|
@ -19,7 +19,6 @@ module XMonad.Internal.Dependency
|
||||||
, pathW
|
, pathW
|
||||||
, pathRW
|
, pathRW
|
||||||
, checkInstalled
|
, checkInstalled
|
||||||
, createInstalled
|
|
||||||
, runIfInstalled
|
, runIfInstalled
|
||||||
, depInstalled
|
, depInstalled
|
||||||
, warnMissing
|
, warnMissing
|
||||||
|
@ -243,9 +242,6 @@ checkInstalled = fmap go . filterMissing
|
||||||
where
|
where
|
||||||
go = join (***) (fmap depData) . partition depRequired
|
go = join (***) (fmap depData) . partition depRequired
|
||||||
|
|
||||||
createInstalled :: [DependencyData] -> [DependencyData] -> a -> MaybeExe a
|
|
||||||
createInstalled req opt x = if null req then Installed x opt else Missing req opt
|
|
||||||
|
|
||||||
filterMissing :: [Dependency a] -> IO [Dependency a]
|
filterMissing :: [Dependency a] -> IO [Dependency a]
|
||||||
filterMissing = filterM (fmap not . depInstalled . depData)
|
filterMissing = filterM (fmap not . depInstalled . depData)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue