[xmonad] New warnings

[Alain Bertrand]

Hi all,

I don't know why but suddenly, xmonad decided to recompile itself and I 
got warnings :

Deprecations detected while compiling xmonad config: 
/home/alain/.xmonad/xmonad.hs
$ ghc --make xmonad.hs -i -ilib -fforce-recomp -main-is main -v0 
-outputdir /home/alain/.xmonad/build-x86_64-linux -o 
/home/alain/.xmonad/xmonad-x86_64-linux

xmonad.hs:16:1: warning: [-Wtabs]
     Tab character found here, and in one further location.
     Suggested fix: Please use spaces instead.
    |
16 |         spawnOn "bg" "feh --bg-tile 
/usr/share/WindowMaker/Backgrounds/BlueImage.jpeg"
    | ^^^^^^^^

xmonad.hs:35:30: warning: [-Wdeprecations]
     In the use of ‘defaultConfig’
     (imported from XMonad, but defined in XMonad.Config):
     Deprecated: "Use def (from Data.Default, and re-exported by XMonad 
and XMonad.Config) instead."
    |
35 |      , manageHook=manageHook defaultConfig <+> manageDocks
    |                              ^^^^^^^^^^^^^

I don't find the tab character, if I delete what appears to me as a 
space, then type a space, I have another error message.

How should I replace "defaultConfig" ?


Thanks for your help.


Alain

import XMonad
   1  import XMonad.Hooks.SetWMName
   2  import XMonad.Hooks.ManageDocks
   3  import qualified Data.Map as M
   4  import Graphics.X11.Xlib
   5  import XMonad.Config.Azerty
   6  import XMonad.Prompt
   7  import XMonad.Prompt.Shell
   8  import XMonad.Prompt.XMonad
   9  import XMonad.Actions.SpawnOn
  10  import XMonad.Layout.Spiral
  11  import XMonad.Layout.SimplestFloat
  12  myStartUpHook :: X ()
  13  myStartUpHook = do
  14         spawnOn "panel" "xfce4-panel"
  15   spawnOn "bg" "feh --bg-tile 
/usr/share/WindowMaker/Backgrounds/BlueImage.jpeg"
  16
  17 --        spawnOn "clavier" "/home/alain/bin/clavier_conf"
  18 --        spawnOn "1" "/usr/bin/firefox"
  19         spawnOn "1" "/usr/bin/thunderbird"
  20 --        spawnOn "workspace7" "/usr/bin/transmission-gtk"
  21 --  spawnOn "akonadi" "akonadictl start"
  22     setWMName "LG3D"
  23
  24
  25  --myLayoutHook = avoidStruts  ( Full ||| spiral (6/7)  ||| Tall 1 
0.03 0.5 ||| simplestFloat)
  26
  27      -- sets default tile as: Tall nmaster (delta) (golden ratio)
  28 --
  29 --
  30 main=do
  31    xmonad  $ docks def
  32 {
  33      layoutHook = avoidStruts $ (spiral (6/7) ||| layoutHook def 
||| simplestFloat  )
  34      , manageHook=manageHook defaultConfig <+> manageDocks
  35      , modMask = mod4Mask
  36      , keys = myKeys <+> keys azertyConfig
  37      , startupHook = myStartUpHook
  38 }
  39
  40
  41 -- main=do
  42 -- xmonad { keys = myKeys <+> keys azertyConfig }
  43 -- {
  44 --     layoutHook=avoidStruts $ layoutHook defaultConfig
  45 --     , manageHook=manageHook defaultConfig <+> manageDocks
  46 --     , startupHook = setWMName "LG3D"
  47 -- }
  48 --
  49 --
  50  myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList
  51              [ ((modm, xK_F12), xmonadPrompt def)
  52              , ((modm, xK_F3 ), shellPrompt def)
  53 ]
~