REF remove dead code
This commit is contained in:
parent
3c6dafe8bd
commit
802de6965e
|
@ -19,7 +19,6 @@ module XMonad.Internal.Dependency
|
|||
, pathW
|
||||
, pathRW
|
||||
, checkInstalled
|
||||
, createInstalled
|
||||
, runIfInstalled
|
||||
, depInstalled
|
||||
, warnMissing
|
||||
|
@ -243,9 +242,6 @@ checkInstalled = fmap go . filterMissing
|
|||
where
|
||||
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 = filterM (fmap not . depInstalled . depData)
|
||||
|
||||
|
|
Loading…
Reference in New Issue