@@ -31,7 +31,7 @@ data Picture = Picture
31 , picBackground :: Background
31 , picBackground :: Background
32 -- ^ The picture's background to be displayed in locations with no
32 -- ^ The picture's background to be displayed in locations with no
33 -- Image data.
33 -- Image data.
36instance Show Picture where
36instance Show Picture where
37 show (Picture _ layers _ ) = "Picture ?? " ++ show layers ++ " ??"
37 show (Picture _ layers _ ) = "Picture ?? " ++ show layers ++ " ??"
@@ -109,6 +109,7 @@ data Background
110 -- * End of line if there are no remaining non-skip ops.
110 -- * End of line if there are no remaining non-skip ops.
111 | ClearBackground
111 | ClearBackground
113instance NFData Background where
114instance NFData Background where
114 rnf (Background c a) = c `seq` a `seq` ()
115 rnf (Background c a) = c `seq` a `seq` ()