Просмотр исходного кода

~/.xmonad: Smarter definition of ??

Just a flippin' fmap. (Just (flip fmap)?)
Lucas Stadler лет назад: 12
Родитель
Сommit
46efc2fc73
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      .xmonad/xmonad.hs

+ 1 - 1
.xmonad/xmonad.hs

21
--  * Logging framework (like reading urls from Firefox and the like)
21
--  * Logging framework (like reading urls from Firefox and the like)
22
22
23
(??) :: Query a -> (a -> Bool) -> Query Bool
23
(??) :: Query a -> (a -> Bool) -> Query Bool
24
q ?? p = fmap p q
24
(??) = flip fmap
25
25
26
main = do
26
main = do
27
    kbMap <- newIORef "us"
27
    kbMap <- newIORef "us"