[PPrint instance for (Maybe a).
Lemmih <lemmih@gmail.com>**20081128014737
 Ignore-this: 7d04ce78b0b37beee9494c50a8fe3e65
] hunk ./E/Show.hs 53
+instance PPrint String e => PPrint String (Maybe e) where
+    pprint Nothing = "Nothing"
+    pprint (Just e) = pprint e
+