diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:31:47 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:31:47 -0400 |
| commit | 3969a295be5adda22ce8414416f536f1309faf79 (patch) | |
| tree | 2ba8183309675f22f0e8c071090c0ca05b9a92e8 /Role | |
| parent | 194272f2f40a3d2aeee930d502379a7526e0d28d (diff) | |
| download | debug-me-3969a295be5adda22ce8414416f536f1309faf79.tar.gz | |
man page
Diffstat (limited to 'Role')
| -rw-r--r-- | Role/User.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |