diff options
| author | Micael Karlberg <[email protected]> | 2011-04-12 18:09:11 +0200 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2011-04-12 18:09:11 +0200 |
| commit | a0c01db642374fb9fbbbb47263929f1e442e20d7 (patch) | |
| tree | 4a080c6a416eeaddbfdfca343d3f3d898639b289 /lib/stdlib/src/gen_fsm.erl | |
| parent | 4346b5dae76052e8c06b1cda70d561b10c1c486d (diff) | |
| parent | 47fc3df88eada4b07d8805dbc7fd418f6fac1c11 (diff) | |
| download | otp-a0c01db642374fb9fbbbb47263929f1e442e20d7.tar.gz otp-a0c01db642374fb9fbbbb47263929f1e442e20d7.tar.bz2 otp-a0c01db642374fb9fbbbb47263929f1e442e20d7.zip | |
Merge branch 'dev' into bmk/inets/inet56_integration
Diffstat (limited to 'lib/stdlib/src/gen_fsm.erl')
| -rw-r--r-- | lib/stdlib/src/gen_fsm.erl | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/lib/stdlib/src/gen_fsm.erl b/lib/stdlib/src/gen_fsm.erl index 7d9960b912..f2f1365d3d 100644 --- a/lib/stdlib/src/gen_fsm.erl +++ b/lib/stdlib/src/gen_fsm.erl @@ -614,15 +614,8 @@ get_msg(Msg) -> Msg. format_status(Opt, StatusData) -> [PDict, SysState, Parent, Debug, [Name, StateName, StateData, Mod, _Time]] = StatusData, - StatusHdr = "Status for state machine", - Header = if - is_pid(Name) -> - lists:concat([StatusHdr, " ", pid_to_list(Name)]); - is_atom(Name); is_list(Name) -> - lists:concat([StatusHdr, " ", Name]); - true -> - {StatusHdr, Name} - end, + Header = gen:format_status_header("Status for state machine", + Name), Log = sys:get_debug(log, Debug, []), DefaultStatus = [{data, [{"StateData", StateData}]}], Specfic = |