whitespace bug

massemanet · May 14, 2010 · 6e39fe2 · 6e39fe2
1 parent f6d380b
commit 6e39fe2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1 +1,2 @@
 *~
+*beam
diff --git a/src/trane.erl b/src/trane.erl
@@ -87,7 +87,7 @@ tz(nil,[_|Str])                         -> {nil,Str};
 tz({tag,""},"!--"++Str)                 -> {{comm,""},Str};
 tz({tag,""},"!"++Str)                   -> {{excl,""},ws(Str)};
 tz({tag,""},"?"++Str)                   -> {{que,""},ws(Str)};
-tz({tag,""},"/"++Str)                   -> {{end_tag,""},Str};
+tz({tag,""},"/"++Str)                   -> {{end_tag,""},ws(Str)};
 tz({tag,Tag},Str) when ?endv(Str)       -> {{attr,"",{Tag,[]}},ws(Str)};
 tz({tag,Tag},[X|Str])                   -> {{tag,Tag++[X]},Str};
 
@@ -168,7 +168,7 @@ unit() ->
       [{exclamation,"doctype bla"},
        {tag,"p",[{"a","b"},{"c","d"}]},
        {end_tag,"p"}]},
-     {"<head><B>< p><p ></z></b></x>",
+     {"<head><B>< p><p ></z></ b></x>",
       [{tag,"head",[]},
        {tag,"b",[]},
        {tag,"p",[]},