diff options
| author | Henrik Nord <[email protected]> | 2011-09-01 14:44:19 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2011-09-01 14:44:31 +0200 |
| commit | dcc4df2464c9f8005c5d242505090cc88beb2eb5 (patch) | |
| tree | 5cfc18fccb08091375075865f8bb89eb029328f2 | |
| parent | b347af6c37b39c04823a276d0aff6a194382ec10 (diff) | |
| parent | af61de4fee3f5936e2ea368ded527414b69c4a78 (diff) | |
| download | otp-dcc4df2464c9f8005c5d242505090cc88beb2eb5.tar.gz otp-dcc4df2464c9f8005c5d242505090cc88beb2eb5.tar.bz2 otp-dcc4df2464c9f8005c5d242505090cc88beb2eb5.zip | |
Merge branch 'ta/wx-obsolete-guard' into dev
* ta/wx-obsolete-guard:
wx: fix obsolete guard warning (list/1)
OTP-9513
| -rw-r--r-- | lib/wx/test/wxt.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/wx/test/wxt.erl b/lib/wx/test/wxt.erl index 1f5b1cc3b1..2f52c58f26 100644 --- a/lib/wx/test/wxt.erl +++ b/lib/wx/test/wxt.erl @@ -72,7 +72,7 @@ resolve({Suite0, Case}) when is_atom(Suite0), is_atom(Case) -> {Suite, Case2} -> {Suite, Case2} end; -resolve(List) when list(List) -> +resolve(List) when is_list(List) -> [resolve(Case) || Case <- List]. alias(Suite) when is_atom(Suite) -> @@ -104,7 +104,7 @@ read_config() -> end. %% Write new default config file -write_config(Config) when list(Config) -> +write_config(Config) when is_list(Config) -> Fname = config_fname(), {ok, Fd} = file:open(Fname, write), write_list(Fd, Config), |