On Mon, Sep 6, 2010 at 8:52 PM, Maciej Piechotka <uzytkown...@gmail.com> wrote:
> 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. _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
