ENH remove useless default key

bin/xmobar.hs

@@ -314,7 +314,6 @@ getBattery :: BarFeature
 getBattery = Feature
   { ftrAction = batteryCmd
   , ftrSilent = False
-  , ftrDefault = Nothing
   , ftrChildren = [Dependency $ IOTest hasBattery]
   }
 
@@ -324,7 +323,6 @@ getVPN :: BarFeature
 getVPN = Feature
   { ftrAction = vpnCmd
   , ftrSilent = False
-  , ftrDefault = Nothing
   , ftrChildren = [d, v]
   }
   where
@@ -335,7 +333,6 @@ getBt :: BarFeature
 getBt = Feature
   { ftrAction = btCmd
   , ftrSilent = False
-  , ftrDefault = Nothing
   , ftrChildren = [dep]
   }
   where
@@ -344,7 +341,6 @@ getBt = Feature
 getAlsa :: BarFeature
 getAlsa = Feature
   { ftrAction = alsaCmd
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [exe "alsactl"]
   }
@@ -352,7 +348,6 @@ getAlsa = Feature
 getBl :: BarFeature
 getBl = Feature
   { ftrAction = blCmd
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [curFileDep, maxFileDep]
   }
@@ -360,7 +355,6 @@ getBl = Feature
 getSs :: BarFeature
 getSs = Feature
   { ftrAction = ssCmd
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [ssDep]
   }

lib/XMonad/Internal/Command/Desktop.hs

@@ -96,7 +96,6 @@ runTMux :: IO MaybeX
 runTMux = evalFeature $ Feature
   { ftrAction = cmd
   , ftrSilent = False
-  , ftrDefault = Nothing
   , ftrChildren  = [exe myTerm, exe "tmux", exe "bash"]
   }
   where

lib/XMonad/Internal/DBus/Brightness/Common.hs

@@ -102,7 +102,6 @@ brightnessExporter :: RealFrac b => [Dependency (IO ())]
   -> BrightnessConfig a b -> Client -> Feature (IO ()) (IO ())
 brightnessExporter deps bc client = Feature
   { ftrAction = exportBrightnessControls' bc client
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = deps
   }
@@ -138,7 +137,6 @@ callBacklight :: BrightnessConfig a b -> Feature (IO ()) (IO ()) -> MemberName
 callBacklight BrightnessConfig { bcPath = p, bcInterface = i } exporter mem =
   Feature
   { ftrAction = void $ callMethod $ methodCall p i mem
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [SubFeature exporter]
   }

lib/XMonad/Internal/DBus/Screensaver.hs

@@ -109,7 +109,6 @@ exportScreensaver client = initControls client exportScreensaver' controls
 exportScreensaver' :: Client -> Feature (IO ()) (IO ())
 exportScreensaver' client = Feature
   { ftrAction = cmd
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [ssDep]
   }
@@ -125,7 +124,6 @@ exportScreensaver' client = Feature
 callToggle :: Feature (IO ()) (IO ()) -> Feature (IO ()) (IO ())
 callToggle exporter = Feature
   { ftrAction = cmd
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = [SubFeature exporter]
   }

lib/XMonad/Internal/Dependency.hs

@@ -82,7 +82,6 @@ data Dependency a = SubFeature (Feature a a)
 
 data Feature a b = Feature
   { ftrAction   :: a
-  , ftrDefault  :: Maybe a
   , ftrSilent   :: Bool
   , ftrChildren :: [Dependency b]
   } | ConstFeature a
@@ -261,7 +260,6 @@ runIfInstalled :: [Dependency a] -> b -> IO (MaybeExe b)
 runIfInstalled ds x = evalFeature $
   Feature
   { ftrAction = x
-  , ftrDefault = Nothing
   , ftrSilent = False
   , ftrChildren = ds
   }