diff --git a/lib/Rainbox/Core.hs b/lib/Rainbox/Core.hs
--- a/lib/Rainbox/Core.hs
+++ b/lib/Rainbox/Core.hs
@@ -94,7 +94,7 @@
   width (Width a) = max 0 a
 
 instance HasWidth (Chunk Text) where
-  width (Chunk _ _ t) = X.length t
+  width (Chunk _ t) = X.length t
 
 instance (HasWidth a, HasWidth b) => HasWidth (Either a b) where
   width = either width width
diff --git a/rainbox.cabal b/rainbox.cabal
--- a/rainbox.cabal
+++ b/rainbox.cabal
@@ -3,11 +3,11 @@
 -- http://www.github.com/massysett/cartel
 --
 -- Script name used to generate: genCabal.hs
--- Generated on: 2015-04-25 16:47:00.642334 EDT
+-- Generated on: 2015-04-26 13:36:49.036797 EDT
 -- Cartel library version: 0.14.2.6
 
 name: rainbox
-version: 0.14.0.0
+version: 0.16.0.0
 cabal-version: >= 1.18
 license: BSD3
 license-file: LICENSE
@@ -43,7 +43,7 @@
     lib
   build-depends:
       base >= 4.5.0.0 && < 4.9.0.0
-    , rainbow >= 0.24 && < 0.25
+    , rainbow >= 0.26 && < 0.27
     , bytestring >= 0.10 && < 0.11
     , containers >= 0.5.5 && < 0.6
     , text >= 0.11.3.1 && < 1.3.0.0
@@ -56,7 +56,7 @@
   main-is: rainbox-properties.hs
   build-depends:
       base >= 4.5.0.0 && < 4.9.0.0
-    , rainbow >= 0.24 && < 0.25
+    , rainbow >= 0.26 && < 0.27
     , bytestring >= 0.10 && < 0.11
     , containers >= 0.5.5 && < 0.6
     , text >= 0.11.3.1 && < 1.3.0.0
@@ -81,7 +81,7 @@
   main-is: rainbox-visual.hs
   build-depends:
       base >= 4.5.0.0 && < 4.9.0.0
-    , rainbow >= 0.24 && < 0.25
+    , rainbow >= 0.26 && < 0.27
     , bytestring >= 0.10 && < 0.11
     , containers >= 0.5.5 && < 0.6
     , text >= 0.11.3.1 && < 1.3.0.0
diff --git a/test/Rainbow/Instances.hs b/test/Rainbow/Instances.hs
--- a/test/Rainbow/Instances.hs
+++ b/test/Rainbow/Instances.hs
@@ -72,15 +72,21 @@
     . coarbitrary c
 
 
+instance Arbitrary Scheme where
+  arbitrary = Scheme <$> arbitrary <*> arbitrary
+  shrink = genericShrink
+
+instance CoArbitrary Scheme where
+  coarbitrary (Scheme a b) = coarbitrary a . coarbitrary b
+
 instance Arbitrary a => Arbitrary (Chunk a) where
-  arbitrary = Chunk <$> arbitrary <*> arbitrary <*> arbitrary
+  arbitrary = Chunk <$> arbitrary <*> arbitrary
   shrink = genericShrink
 
 instance CoArbitrary a => CoArbitrary (Chunk a) where
-  coarbitrary (Chunk a b c)
+  coarbitrary (Chunk a b)
     = coarbitrary a
     . coarbitrary b
-    . coarbitrary c
 
 instance Arbitrary Radiant where
   arbitrary = Radiant <$> arbitrary <*> arbitrary
diff --git a/test/rainbox-properties.hs b/test/rainbox-properties.hs
--- a/test/rainbox-properties.hs
+++ b/test/rainbox-properties.hs
@@ -75,7 +75,7 @@
   , testGroup "chunk" $
     [ testProperty "height is always 1" $ \c ->
       let _types = c :: Chunk X.Text in height c == 1
-    , testProperty "width is sum of number of characters" $ \c@(Chunk _ _ t) ->
+    , testProperty "width is sum of number of characters" $ \c@(Chunk _ t) ->
       let _types = c :: Chunk X.Text in width c == X.length t
     ]