A more readable version of trailing slash stripping

beerriot · Jun 7, 2011 · b8afa6a · b8afa6a
1 parent 76d09eb
commit b8afa6a
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/webmachine_decision_core.erl b/src/webmachine_decision_core.erl
@@ -432,9 +432,8 @@ decision(v3n11) ->
                             BaseUri = case resource_call(base_uri) of
                                 undefined -> wrcall(base_uri);
                                 Any ->
-                                    case lists:last(Any) of
+                                    case [lists:last(Any)] of
-                                        % 47 is "/"
+                                        "/" -> lists:sublist(Any, erlang:length(Any) - 1);
-                                        47 -> lists:sublist(Any, erlang:length(Any) - 1);
                                         _ -> Any
                                     end
                             end,