diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs
index b298920f..6c3371c6 100644
--- a/XMonad/Hooks/Script.hs
+++ b/XMonad/Hooks/Script.hs
@@ -44,7 +44,7 @@ import XMonad
 -- @~\/.xmonad\/hooks startup@ will also.
 
 -- | Execute a named script hook
-execScriptHook :: MonadIO m => String -> m ()
+execScriptHook :: String -> X ()
 execScriptHook hook = do
   xmonadDir <- getXMonadDir
   let script = xmonadDir ++ "/hooks "