summaryrefslogtreecommitdiff
path: root/testsuite/tests/rebindable/rebindable1.hs
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2016-06-18 22:44:19 +0200
committerThomas Miedema <thomasmiedema@gmail.com>2016-06-20 16:22:07 +0200
commit915e07c33b143126e3c8de1d2ec22ccc709a9a24 (patch)
treefcde0a7ffc1466b6e53dbee6df835af07e9a7ecc /testsuite/tests/rebindable/rebindable1.hs
parent46ff80f26d1892e1b50e3f10c5d3fded33da6e81 (diff)
downloadhaskell-915e07c33b143126e3c8de1d2ec22ccc709a9a24.tar.gz
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/rebindable/rebindable1.hs')
-rw-r--r--testsuite/tests/rebindable/rebindable1.hs74
1 files changed, 37 insertions, 37 deletions
diff --git a/testsuite/tests/rebindable/rebindable1.hs b/testsuite/tests/rebindable/rebindable1.hs
index 4ff8ed2d4d..8fcc5d2697 100644
--- a/testsuite/tests/rebindable/rebindable1.hs
+++ b/testsuite/tests/rebindable/rebindable1.hs
@@ -2,55 +2,55 @@
{-# LANGUAGE RebindableSyntax, NPlusKPatterns #-}
module RebindableCase1 where
- {
--- import Prelude;
- import Prelude(String,undefined,Maybe(..), (==), (>=) );
+ {
+-- import Prelude;
+ import Prelude(String,undefined,Maybe(..), (==), (>=) );
- return :: a;
- return = undefined;
+ return :: a;
+ return = undefined;
- infixl 1 >>=;
- (>>=) :: a;
- (>>=) = undefined;
+ infixl 1 >>=;
+ (>>=) :: a;
+ (>>=) = undefined;
- infixl 1 >>;
- (>>) :: a;
- (>>) = undefined;
+ infixl 1 >>;
+ (>>) :: a;
+ (>>) = undefined;
- fail :: a;
- fail = undefined;
+ fail :: a;
+ fail = undefined;
- fromInteger :: a;
- fromInteger = undefined;
+ fromInteger :: a;
+ fromInteger = undefined;
- fromRational :: a;
- fromRational = undefined;
+ fromRational :: a;
+ fromRational = undefined;
- negate :: a;
- negate = undefined;
+ negate :: a;
+ negate = undefined;
- (-) :: a;
- (-) = undefined;
+ (-) :: a;
+ (-) = undefined;
- test_do f g = do
- {
- f;
- Just a <- g;
- return a;
- };
+ test_do f g = do
+ {
+ f;
+ Just a <- g;
+ return a;
+ };
- test_fromInteger = 1;
+ test_fromInteger = 1;
- test_fromRational = 0.5;
+ test_fromRational = 0.5;
- test_negate a = - a;
+ test_negate a = - a;
- test_fromInteger_pattern 1 = undefined;
- test_fromInteger_pattern (-1) = undefined;
- test_fromInteger_pattern (a + 7) = a;
+ test_fromInteger_pattern 1 = undefined;
+ test_fromInteger_pattern (-1) = undefined;
+ test_fromInteger_pattern (a + 7) = a;
- test_fromRational_pattern 0.5 = undefined;
- test_fromRational_pattern (-0.5) = undefined;
- test_fromRational_pattern _ = undefined;
- }
+ test_fromRational_pattern 0.5 = undefined;
+ test_fromRational_pattern (-0.5) = undefined;
+ test_fromRational_pattern _ = undefined;
+ }