diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/deriving/should_run/drvrun002.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/deriving/should_run/drvrun002.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/testsuite/tests/ghc-regress/deriving/should_run/drvrun002.hs b/testsuite/tests/ghc-regress/deriving/should_run/drvrun002.hs deleted file mode 100644 index 26497bd32c..0000000000 --- a/testsuite/tests/ghc-regress/deriving/should_run/drvrun002.hs +++ /dev/null @@ -1,17 +0,0 @@ --- !!! Deriving Show/Read for type with labelled fields. --- (based on a Hugs bug report.) -module Main(main) where - -data Options = - Options { s :: OptionKind } - deriving (Show, Read) - -data OptionKind = - SpecialOptions { test :: Int } - deriving (Show, Read) - -x = Options{s=SpecialOptions{test=42}} - -main = do - print x - print ((read (show x))::Options) |