Advertisement
Guest User

Untitled

a guest
Oct 24th, 2016
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Error detected while loading xmonad configuration file: /home/days/.xmonad/xmonad.hs
  2.  
  3. xmonad.hs:20:21: error:
  4.     • Couldn't match type ‘[Query (Endo WindowSet)]’
  5.                     with ‘Query (Endo WindowSet)’
  6.      Expected type: ManageHook
  7.        Actual type: [Query (Endo WindowSet)]
  8.    • In the ‘manageHook’ field of a record
  9.      In the second argument of ‘($)’, namely
  10.        ‘defaultConfig
  11.           {terminal = "urxvt", modMask = mod4Mask, borderWidth = 1,
  12.            workspaces = myWorkspaces,
  13.            layoutHook = avoidStruts
  14.                         $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook,
  15.            manageHook = myManageHook, startupHook = setWMName "XMonad"}’
  16.      In a stmt of a 'do' block:
  17.        xmonad
  18.        $ defaultConfig
  19.            {terminal = "urxvt", modMask = mod4Mask, borderWidth = 1,
  20.             workspaces = myWorkspaces,
  21.             layoutHook = avoidStruts
  22.                          $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook,
  23.             manageHook = myManageHook, startupHook = setWMName "XMonad"}
  24.  
  25. Please check the file for errors.
  26.  
  27. my xmonad.hs
  28.  
  29. import XMonad
  30. import qualified XMonad.StackSet as W
  31. import XMonad.Hooks.ManageHelpers
  32. import XMonad.Hooks.SetWMName
  33. import XMonad.Hooks.ManageDocks
  34. import XMonad.Layout.ToggleLayouts
  35. import XMonad.Layout.NoBorders
  36. import Data.Monoid
  37. import System.Exit
  38. import System.IO
  39. import System.Info
  40.  
  41. main = do
  42.   xmonad $ defaultConfig
  43.     { terminal    = "urxvt"
  44.     , modMask     = mod4Mask
  45.     , borderWidth = 1
  46.     , workspaces = myWorkspaces
  47.     , layoutHook  =  avoidStruts $ toggleLayouts (noBorders Full) $ smartBorders $ mylayoutHook -- Don't put borders on fullFloatWindows
  48.      , manageHook = myManageHook
  49.      , startupHook = setWMName "XMonad"
  50.      }
  51.  
  52. myWorkspaces = [ "main", "vid", "irc", "code", "5", "6", "7", "8", "9"]
  53.  
  54. myManageHook = composeAll $
  55.      [ [ isFullscreen --> doFullFloat ]
  56.      , [ className =? "mpv" --> doShift "vid" ]
  57.      ]
  58.  
  59. mylayoutHook = tiled ||| Full ||| Mirror tiled
  60.    where
  61.      tiled   = Tall 1 (3/100) (3/5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement