X.H.Script: Add X constraint

This commit is contained in:
slotThe
2020-12-27 19:25:38 +01:00
parent 9fe3444374
commit 3213925b6b

View File

@@ -44,7 +44,7 @@ import XMonad
-- @~\/.xmonad\/hooks startup@ will also. -- @~\/.xmonad\/hooks startup@ will also.
-- | Execute a named script hook -- | Execute a named script hook
execScriptHook :: MonadIO m => String -> m () execScriptHook :: String -> X ()
execScriptHook hook = do execScriptHook hook = do
xmonadDir <- getXMonadDir xmonadDir <- getXMonadDir
let script = xmonadDir ++ "/hooks " let script = xmonadDir ++ "/hooks "