do not indent for the first select

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 5ae9b99..f967dc9 100644 (file)
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -198,6 +198,7 @@ sub whitespace {
    if (defined $ghetto_whitespacemap{lc $keyword}) {
       $before = $self->newline . $self->indent($depth + $ghetto_whitespacemap{lc $keyword});
    }
+   $before = '' if $depth == 0 and lc $keyword eq 'select';
    return [$before, $after];
 }