twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-16 04:33:57 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use fromMaybe over "maybe .. id"

Browse Source
This commit is contained in:
Matus Goljer
2016-10-16 16:33:49 +02:00
parent 858a906240
commit 1553d81ce7
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Actions/Submap.hs
View File

@@ -19,6 +19,7 @@ module XMonad.Actions.Submap (
submapDefault submapDefault
) where ) where
import Data.Bits import Data.Bits
import Data.Maybe (fromMaybe)
import XMonad hiding (keys) import XMonad hiding (keys)
import qualified Data.Map as M import qualified Data.Map as M
import Control.Monad.Fix (fix) import Control.Monad.Fix (fix)
@@ -79,4 +80,4 @@ submapDefault defAction keys = do
io $ ungrabKeyboard d currentTime io $ ungrabKeyboard d currentTime
maybe defAction id (M.lookup (m', s) keys) fromMaybe defAction (M.lookup (m', s) keys)