algebrick 0.3.1 → 0.3.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3afd890330088870db253424a7296f619666dbe5
-  data.tar.gz: 6660ee990c34420c9599f5cb2f43a80c1d33ae4e
+  metadata.gz: 9166938f13bced97656434796a7d426cf19a7396
+  data.tar.gz: eea50d70bef296d2d9f7ad18554ddae07d771eb8
 SHA512:
-  metadata.gz: d737796cb0b2ece44f606cf2d5cc9c6273893b23de0c355ebb290f09e6e35e997d33af220298bded254281ffe71cfed4abd5680c3646a004f385c7240b306980
-  data.tar.gz: baeb8506f6f66ee19891b1f2921b8fe45e4aa5efeecb22b2e2b3b6c23ad4e421ebad7f7c2c035d88b6563028adadcd7b9805d67c2a9b8ae72715b0e6afb70f96
+  metadata.gz: 7a6f6620de67a7c6dc50d28874996e2a1596fdf590bcfa71158e42fc648a2f0c70ae7e39c81b84281b0a2abe7262e33fcb88997ed78ca04321d3f66201d8f71a
+  data.tar.gz: 466e978ff88c63b24378c42b633def34e90cd60cc6ac79938b46e705f2d4ed5ddb2b9edd6fcdd2dc3c3dabe62afdc8270fa9c78e10f15a63b00c2d69c7d5040a

data/VERSION

@@ -1 +1 @@
-0.3.1
+0.3.2

data/lib/algebrick.rb

@@ -58,6 +58,7 @@ module Algebrick
   end
 
   module TypeCheck
+    # FIND: type checking of collections?
     def Type?(value, *types)
       types.any? { |t| value.is_a? t }
     end
@@ -321,10 +322,41 @@ module Algebrick
           if type.field_names?
             type.field_names.map { |name| "#{name}: #{self[name].to_s}" }.join(', ')
           else
-            fields.map(&:to_s).join(',')
+            fields.map(&:to_s).join(', ')
           end + ']'
     end
 
+    def pretty_print(q)
+      q.group(1, "#{self.class.type.name}[", ']') do
+        if type.field_names?
+          type.field_names.each_with_index do |name, i|
+            if i == 0
+              q.breakable ''
+            else
+              q.text ','
+              q.breakable ' '
+            end
+            q.text name.to_s
+            q.text ':'
+            q.group(1) do
+              q.breakable ' '
+              q.pp self[name]
+            end
+          end
+        else
+          fields.each_with_index do |value, i|
+            if i == 0
+              q.breakable ''
+            else
+              q.text ','
+              q.breakable ' '
+            end
+            q.pp value
+          end
+        end
+      end
+    end
+
     def to_ary
       @fields
     end
@@ -1107,7 +1139,7 @@ module Algebrick
                               raise ArgumentError, "no #{dif} fields in #{algebraic_type}"
                             end
                             algebraic_type.field_names.map do |field|
-                              field_matchers[field] || Algebrick.any
+                              field_matchers.key?(field) ? field_matchers[field] : Algebrick.any
                             end
 
                             # AProduct.(:field_name)

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: algebrick
 version: !ruby/object:Gem::Version
-  version: 0.3.1
+  version: 0.3.2
 platform: ruby
 authors:
 - Petr Chalupa
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-11-17 00:00:00.000000000 Z
+date: 2013-11-29 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: minitest
@@ -157,7 +157,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.0.0
+rubygems_version: 2.0.3
 signing_key: 
 specification_version: 4
 summary: Algebraic types and pattern matching for Ruby