diff options
| author | tv <tv@krebsco.de> | 2021-02-20 13:08:12 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2021-02-20 13:08:12 +0100 |
| commit | 784f6db8077059ba2fe730cd84bd87ef42fe5377 (patch) | |
| tree | 8a9a310e73b6473f07aadebf8fc7e6c8384e5605 | |
| parent | 798c2ab540d509d6761bd29b3dff80404d713356 (diff) | |
tv xmonad: queryPrefix -> (=??)
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/main.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs index e5a4473..177f313 100644 --- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs +++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs @@ -60,9 +60,8 @@ main = getArgs >>= \case args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure -queryPrefix :: Query String -> String -> Query Bool -queryPrefix query prefix = - fmap (Data.List.isPrefixOf prefix) query +(=??) :: Query a -> (a -> Bool) -> Query Bool +(=??) x p = fmap p x mainNoArgs :: IO () @@ -88,7 +87,7 @@ mainNoArgs = do , manageHook = composeAll [ appName =? "fzmenu-urxvt" --> doCenterFloat - , appName `queryPrefix` "pinentry" --> doCenterFloat + , appName =?? Data.List.isPrefixOf "pinentry" --> doCenterFloat , title =? "Upload to Imgur" --> doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8)) , placeHook (smart (1,0)) |