From fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 1 Nov 2007 08:35:06 +0100 Subject: More porting darcs-hash:20071101073506-a5988-b8ee3ece4361dfc533589f5d4ca8c289c3dc77e7.gz --- Run.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Run.hs') diff --git a/Run.hs b/Run.hs index cc3943a..1caecf1 100644 --- a/Run.hs +++ b/Run.hs @@ -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 -- cgit v1.2.3