diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 08:35:06 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 08:35:06 +0100 |
commit | fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe (patch) | |
tree | 58ebd9dcfee15d9d300b3ff5c38fcaf43c4b33ba /Run.hs | |
parent | 7e79037c11ffee4ab68dc3ae3d63c5f103abad59 (diff) | |
download | XMonadContrib-fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe.tar.gz XMonadContrib-fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe.tar.xz XMonadContrib-fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe.zip |
More porting
darcs-hash:20071101073506-a5988-b8ee3ece4361dfc533589f5d4ca8c289c3dc77e7.gz
Diffstat (limited to 'Run.hs')
-rw-r--r-- | Run.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -108,8 +108,8 @@ unsafeSpawn = spawn -- | Run a given program in the preferred terminal emulator. This uses safeSpawn. safeRunInTerm :: String -> X () -safeRunInTerm command = asks terminal >>= \t -> safeSpawn t ("-e " ++ command) +safeRunInTerm command = asks (terminal . config) >>= \t -> safeSpawn t ("-e " ++ command) unsafeRunInTerm, runInTerm :: String -> X () -unsafeRunInTerm command = asks terminal >>= \t -> unsafeSpawn $ t ++ " -e " ++ command +unsafeRunInTerm command = asks (terminal . config) >>= \t -> unsafeSpawn $ t ++ " -e " ++ command runInTerm = unsafeRunInTerm |