From 3969a295be5adda22ce8414416f536f1309faf79 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 21:31:47 -0400 Subject: man page --- Role/User.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Role') diff --git a/Role/User.hs b/Role/User.hs index 99a8a1a..5fb8897 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -48,7 +48,7 @@ run os = do shellCommand :: UserOpts -> IO (String, [String]) shellCommand os = case cmdToRun os of Just v -> return v - Nothing -> (, []) . fromMaybe "bash" <$> lookupEnv "SHELL" + Nothing -> maybe ("bash", ["-l"]) (, []) <$> lookupEnv "SHELL" -- | Log of recent Activity, with the most recent first. type Backlog = NonEmpty Log -- cgit v1.2.3