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 | 662c2c6f9070a4f69d647f9a516fc537a7d01fa3 (patch) | |
| tree | 56913526561913ebf24c74b7d2b194dc772ddf7d /tv/5pkgs/haskell | |
| parent | f9bc618fada82326ed371b131eaed34d21626ae9 (diff) | |
tv xmonad: queryPrefix -> (=??)
Diffstat (limited to 'tv/5pkgs/haskell')
| -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 e5a4473fe..177f313c5 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)) |