diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/deSugar/should_run/dsrun009.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/deSugar/should_run/dsrun009.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/testsuite/tests/ghc-regress/deSugar/should_run/dsrun009.hs b/testsuite/tests/ghc-regress/deSugar/should_run/dsrun009.hs deleted file mode 100644 index 104f1af2e3..0000000000 --- a/testsuite/tests/ghc-regress/deSugar/should_run/dsrun009.hs +++ /dev/null @@ -1,16 +0,0 @@ --- !!! Test that 'negate' is used properly to construct negative literals - -main = print (minusTwo,trueOrFalse) - -minusTwo = -2::N - -trueOrFalse = - case minusTwo of - -2 -> True - _ -> False - -data N = Negate N | FromInteger Integer deriving (Eq,Show) - -instance Num N where - negate = Negate - fromInteger = FromInteger |