
6 Sep
2010
6 Sep
'10
3:08 p.m.
On Mon, Sep 6, 2010 at 8:52 PM, Maciej Piechotka
PS.
data FooBar a = Foo | Bar deriving Show
class IsString (FooBar Char) where toString _ = Foo
class IsList FooBar where toList _ = Bar
show ("1234" :: FooBar Char) == ???
Foo -- Work is punishment for failing to procrastinate effectively.