Small whitespace fixes

Dockerfile

@@ -2,8 +2,8 @@ FROM        jjmerelo/alpine-perl6
 WORKDIR     /code
 COPY        META6.json .
 RUN         apk add gcc libc-dev libuuid sqlite-libs
-RUN		    zef install "NativeLibs:ver<0.0.7>:auth<github:salortiz>" --force-test
-RUN		    zef install Config Config::Parser::json
+RUN         zef install "NativeLibs:ver<0.0.7>:auth<github:salortiz>" --force-test
+RUN         zef install Config Config::Parser::json
 RUN         zef install --deps-only .
 ENTRYPOINT  zef install -v .
 VOLUME      /code

Dockerfile-no-config

@@ -2,7 +2,7 @@ FROM        jjmerelo/alpine-perl6
 WORKDIR     /code
 COPY        META6.json .
 RUN         apk add gcc libc-dev libuuid sqlite-libs
-RUN		    zef install "NativeLibs:ver<0.0.7>:auth<github:salortiz>" --force-test
+RUN         zef install "NativeLibs:ver<0.0.7>:auth<github:salortiz>" --force-test
 RUN         zef install --deps-only .
 ENTRYPOINT  zef install -v .
 VOLUME      /code

Red.iml

@@ -8,4 +8,4 @@
     </content>
     <orderEntry type="sourceFolder" forTests="false" />
   </component>
-</module>
+</module>

lib/MetamodelX/Red/Migration.pm6

@@ -34,4 +34,4 @@ multi method migrate(\model, Red::Model:U :$from) {
 
 method dump-migrations(|) {
     say "{ .key } => { .value.gist }" for @migrations
-}
+}

lib/Red/AST.pm6

@@ -51,4 +51,4 @@ multi method WHICH(::?CLASS:D:) {
 
 multi method WHICH(::?CLASS:U:) {
     ValueObjAt.new: "{ self.^name }"
-}
+}

lib/Red/AST/ChangeColumn.pm6

@@ -34,4 +34,4 @@ method optimize(@changes) {
         |%lists<other>,
         |@c
     ]
-}
+}

lib/Red/AST/IsDefined.pm6

@@ -24,4 +24,4 @@ method find-value {
     $!col
 }
 
-method gist { "{$!col.gist}.defined" }
+method gist { "{$!col.gist}.defined" }

lib/Red/AST/Optimizer/AND.pm6

@@ -77,4 +77,4 @@ multi method optimize(Red::AST $left is copy, Red::AST $right is copy) {
 
     my $cols = ($lcols ∩ $rcols).elems;
     .return with self.optimize: $left, $right, $cols
-}
+}

lib/Red/AST/Optimizer/Case.pm6

@@ -71,4 +71,4 @@ multi method optimize(Red::AST :$case, Red::AST :%when, Red::AST :$else, UInt :$
     self.bless: :$case, :when(%filteredWhen), :$else
 }
 
-multi method optimize(:case($), :when(%), :else($)) { Nil }
+multi method optimize(:case($), :when(%), :else($)) { Nil }

lib/Red/Driver/SQLite.pm6

@@ -110,4 +110,4 @@ multi method map-exception(Exception $x where { .?code == 1 and .native-message
             :driver<SQLite>,
             :orig-exception($x),
             :table($<table>.Str)
-}
+}

lib/Red/HiddenFromSQLCommenting.pm6

@@ -2,4 +2,4 @@ multi trait_mod:<is>(Method $r, Bool :$hidden-from-sql-commenting!) is export {
     $r does role {
         method is-hidden-from-sql-commenting { True }
     }
-}
+}

lib/Red/Migration/Column.pm6

@@ -11,4 +11,4 @@ has Bool    $.is-auto-increment is column = False;
 has Bool    $.is-nullable       is column = False;
 
 has UInt    $.table-id          is referencing{ :column<id>, :model<Red::Migration::Table>}
-has         $.table             is relationship( { .table-id }, :model<Red::Migration::Table>)
+has         $.table             is relationship( { .table-id }, :model<Red::Migration::Table>)

lib/Red/Migration/Migration.pm6

@@ -4,4 +4,4 @@ unit model Red::Migration::Migration is table<red_migration_version>;
 has UInt    $!id                is id;
 has Version $.version           is column{ :unique };
 
-has         @.afected-tables    is relationship{ { .migration-id }, :model<Red::Migration::Table> }
+has         @.afected-tables    is relationship{ { .migration-id }, :model<Red::Migration::Table> }

lib/Red/Migration/Table.pm6

@@ -11,4 +11,4 @@ has UInt    $.migration-id  is referencing{ :column<id>, :model<Red::Migration::
 has         $.migration     is relationship( { .migration-id }, :model<Red::Migration::Migration> );
 has         @.columns       is relationship( { .table-id }, :model<Red::Migration::Column>);
 
-::?CLASS.^add-unique-constraint: { .name, .version };
+::?CLASS.^add-unique-constraint: { .name, .version };

lib/Red/Model.pm6

@@ -9,4 +9,4 @@ multi method perl(::?CLASS:D:) {
         "{ .name.substr(2) } => { .get_value(self).perl }"
     }
     "{ self.^name }.new({ @attrs.join: ", " })"
-}
+}

lib/Red/ResultAssociative.pm6

@@ -24,4 +24,4 @@ method iterator {
 
 method gist {
     "\{{self.map({ "{.key} => {.value.gist}" }).join: ", "}\}"
-}
+}

lib/Red/ResultSeq.pm6

@@ -236,12 +236,12 @@ multi method create-map(*@ret where .all ~~ Red::AST, :filter(&)) is hidden-from
             :type(.returns.^name),
             :$attr,
             :class(model),
-        	|(do if $_ ~~ Red::Column {
-        		:inflate(.inflate),
-        		:deflate(.deflate),
-        	} else {
+            |(do if $_ ~~ Red::Column {
+                :inflate(.inflate),
+                :deflate(.deflate),
+            } else {
                 :computation($_)
-        	})
+            })
         );
         $attr does Red::Attr::Column(%data);
         model.^add_attribute: $attr;

lib/Red/ResultSeq/Iterator.pm6

@@ -14,7 +14,7 @@ submethod TWEAK(|) {
     my @st-handler = $!driver.prepare: $ast;
 
     @st-handler>>.execute unless $*RED-DRY-RUN;
-	$!st-handler = @st-handler.tail
+    $!st-handler = @st-handler.tail
 }
 
 #method is-lazy { True }

lib/Red/ResultSeqSeq.pm6

@@ -21,4 +21,4 @@ method iterator {
 
 method gist {
     "[{self.map({ "{ .gist }" }).join: ", "}]"
-}
+}

lib/X/Red/Exceptions.pm6

@@ -87,4 +87,4 @@ class X::Red::Driver::Mapped::Unique is X::Red::Driver::Mapped {
 class X::Red::Driver::Mapped::TableExists is X::Red::Driver::Mapped {
     has Str $.table is required;
     method msg { "Table $!table already exists" }
-}
+}

t/lib/TestRed.pm6

@@ -14,4 +14,4 @@ model Foo  is rw {
     has Str $.bar is column;
     has Int $.zub-id is referencing( { Zub.id } );
     has Zub $.zub is relationship( { .zub-id });
-}
+}