1 -- !!! Deriving Show/Read for type with labelled fields.
2 -- (based on a Hugs bug report.)
3 module Main(main) where
6 Options { s :: OptionKind }
10 SpecialOptions { test :: Int }
13 x = Options{s=SpecialOptions{test=42}}
17 print ((read (show x))::Options)