Changeset 88 for trunk/src/fixtures.erl

Timestamp:

08/06/09 11:28:55 (3 years ago)

Author:

dom

Message:

Fixed minor bug in fixtures:make_tree/2

File:

• trunk/src/fixtures.erl (modified) (1 diff)

trunk/src/fixtures.erl

@@ -44 +44 @@
     ok.
 
-normalise ([H | []]) ->
-    H;
+normalise ([String]) when is_list (String) ->
+    String;
 normalise ([H | T]) when is_list (H) ->
     %% Inserts newlines when list of strings...
     normalise ([string: concat (H, string: concat ("\n", hd (T))) | tl (T)]);
-normalise ([String]) when is_list (String) ->
-    String;
 normalise (String) when is_list (String) ->
     String.