summaryrefslogtreecommitdiff
path: root/testsuite/tests/arrows/should_compile
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
commit46ff80f26d1892e1b50e3f10c5d3fded33da6e81 (patch)
treec53fd835b689b6b64a729a42e4cc6482d8fb5215 /testsuite/tests/arrows/should_compile
parent7e7094f166b6e475a49e20b98cbca851334aedaf (diff)
downloadhaskell-46ff80f26d1892e1b50e3f10c5d3fded33da6e81.tar.gz
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/arrows/should_compile')
-rw-r--r--testsuite/tests/arrows/should_compile/arrowcase1.hs12
-rw-r--r--testsuite/tests/arrows/should_compile/arrowdo1.hs6
-rw-r--r--testsuite/tests/arrows/should_compile/arrowdo2.hs4
-rw-r--r--testsuite/tests/arrows/should_compile/arrowdo3.hs282
-rw-r--r--testsuite/tests/arrows/should_compile/arrowrec1.hs8
5 files changed, 156 insertions, 156 deletions
diff --git a/testsuite/tests/arrows/should_compile/arrowcase1.hs b/testsuite/tests/arrows/should_compile/arrowcase1.hs
index 6d39b0be73..bc58315f50 100644
--- a/testsuite/tests/arrows/should_compile/arrowcase1.hs
+++ b/testsuite/tests/arrows/should_compile/arrowcase1.hs
@@ -6,13 +6,13 @@ import Control.Arrow
h :: ArrowChoice a => Int -> a (Int,Int) Int
h x = proc (y,z) -> case compare x y of
- LT -> returnA -< x
- EQ -> returnA -< y+z
- GT -> returnA -< z+x
+ LT -> returnA -< x
+ EQ -> returnA -< y+z
+ GT -> returnA -< z+x
g :: ArrowChoice a => Int -> a (Int,Int) Int
g x = proc (y,z) -> (case compare x y of
- LT -> \ a -> returnA -< x+a
- EQ -> \ b -> returnA -< y+z+b
- GT -> \ c -> returnA -< z+x
+ LT -> \ a -> returnA -< x+a
+ EQ -> \ b -> returnA -< y+z+b
+ GT -> \ c -> returnA -< z+x
) 1
diff --git a/testsuite/tests/arrows/should_compile/arrowdo1.hs b/testsuite/tests/arrows/should_compile/arrowdo1.hs
index b70eedd460..ef54094af9 100644
--- a/testsuite/tests/arrows/should_compile/arrowdo1.hs
+++ b/testsuite/tests/arrows/should_compile/arrowdo1.hs
@@ -12,6 +12,6 @@ g x = proc y -> returnA -< x*y
h :: Arrow a => Int -> a (Int,Int) Int
h x = proc (y,z) -> do
- a <- f -< (x,y,3)
- b <- g (2+x) -< y+a
- returnA -< a*b+z
+ a <- f -< (x,y,3)
+ b <- g (2+x) -< y+a
+ returnA -< a*b+z
diff --git a/testsuite/tests/arrows/should_compile/arrowdo2.hs b/testsuite/tests/arrows/should_compile/arrowdo2.hs
index 3562dc23b9..ca40f95a0a 100644
--- a/testsuite/tests/arrows/should_compile/arrowdo2.hs
+++ b/testsuite/tests/arrows/should_compile/arrowdo2.hs
@@ -6,5 +6,5 @@ import Control.Arrow
f :: Arrow a => a (Int,Int) Int
f = proc (x,y) -> do
- let z = x*y
- returnA -< y+z
+ let z = x*y
+ returnA -< y+z
diff --git a/testsuite/tests/arrows/should_compile/arrowdo3.hs b/testsuite/tests/arrows/should_compile/arrowdo3.hs
index 3b6a8c8d35..a46b06ef75 100644
--- a/testsuite/tests/arrows/should_compile/arrowdo3.hs
+++ b/testsuite/tests/arrows/should_compile/arrowdo3.hs
@@ -79,144 +79,144 @@ data T70 = C70
f :: Arrow a => a Int Int
f = proc x0 -> do
- x1 <- returnA -< C1
- x2 <- returnA -< C2
- x3 <- returnA -< C3
- x4 <- returnA -< C4
- x5 <- returnA -< C5
- x6 <- returnA -< C6
- x7 <- returnA -< C7
- x8 <- returnA -< C8
- x9 <- returnA -< C9
- x10 <- returnA -< C10
- x11 <- returnA -< C11
- x12 <- returnA -< C12
- x13 <- returnA -< C13
- x14 <- returnA -< C14
- x15 <- returnA -< C15
- x16 <- returnA -< C16
- x17 <- returnA -< C17
- x18 <- returnA -< C18
- x19 <- returnA -< C19
- x20 <- returnA -< C20
- x21 <- returnA -< C21
- x22 <- returnA -< C22
- x23 <- returnA -< C23
- x24 <- returnA -< C24
- x25 <- returnA -< C25
- x26 <- returnA -< C26
- x27 <- returnA -< C27
- x28 <- returnA -< C28
- x29 <- returnA -< C29
- x30 <- returnA -< C30
- x31 <- returnA -< C31
- x32 <- returnA -< C32
- x33 <- returnA -< C33
- x34 <- returnA -< C34
- x35 <- returnA -< C35
- x36 <- returnA -< C36
- x37 <- returnA -< C37
- x38 <- returnA -< C38
- x39 <- returnA -< C39
- x40 <- returnA -< C40
- x41 <- returnA -< C41
- x42 <- returnA -< C42
- x43 <- returnA -< C43
- x44 <- returnA -< C44
- x45 <- returnA -< C45
- x46 <- returnA -< C46
- x47 <- returnA -< C47
- x48 <- returnA -< C48
- x49 <- returnA -< C49
- x50 <- returnA -< C50
- x51 <- returnA -< C51
- x52 <- returnA -< C52
- x53 <- returnA -< C53
- x54 <- returnA -< C54
- x55 <- returnA -< C55
- x56 <- returnA -< C56
- x57 <- returnA -< C57
- x58 <- returnA -< C58
- x59 <- returnA -< C59
- x60 <- returnA -< C60
- x61 <- returnA -< C61
- x62 <- returnA -< C62
- x63 <- returnA -< C63
- x64 <- returnA -< C64
- x65 <- returnA -< C65
- x66 <- returnA -< C66
- x67 <- returnA -< C67
- x68 <- returnA -< C68
- x69 <- returnA -< C69
- x70 <- returnA -< C70
- returnA -< x70
- returnA -< x69
- returnA -< x68
- returnA -< x67
- returnA -< x66
- returnA -< x65
- returnA -< x64
- returnA -< x63
- returnA -< x62
- returnA -< x61
- returnA -< x60
- returnA -< x59
- returnA -< x58
- returnA -< x57
- returnA -< x56
- returnA -< x55
- returnA -< x54
- returnA -< x53
- returnA -< x52
- returnA -< x51
- returnA -< x50
- returnA -< x49
- returnA -< x48
- returnA -< x47
- returnA -< x46
- returnA -< x45
- returnA -< x44
- returnA -< x43
- returnA -< x42
- returnA -< x41
- returnA -< x40
- returnA -< x39
- returnA -< x38
- returnA -< x37
- returnA -< x36
- returnA -< x35
- returnA -< x34
- returnA -< x33
- returnA -< x32
- returnA -< x31
- returnA -< x30
- returnA -< x29
- returnA -< x28
- returnA -< x27
- returnA -< x26
- returnA -< x25
- returnA -< x24
- returnA -< x23
- returnA -< x22
- returnA -< x21
- returnA -< x20
- returnA -< x19
- returnA -< x18
- returnA -< x17
- returnA -< x16
- returnA -< x15
- returnA -< x14
- returnA -< x13
- returnA -< x12
- returnA -< x11
- returnA -< x10
- returnA -< x9
- returnA -< x8
- returnA -< x7
- returnA -< x6
- returnA -< x5
- returnA -< x4
- returnA -< x3
- returnA -< x2
- returnA -< x1
- returnA -< x0
+ x1 <- returnA -< C1
+ x2 <- returnA -< C2
+ x3 <- returnA -< C3
+ x4 <- returnA -< C4
+ x5 <- returnA -< C5
+ x6 <- returnA -< C6
+ x7 <- returnA -< C7
+ x8 <- returnA -< C8
+ x9 <- returnA -< C9
+ x10 <- returnA -< C10
+ x11 <- returnA -< C11
+ x12 <- returnA -< C12
+ x13 <- returnA -< C13
+ x14 <- returnA -< C14
+ x15 <- returnA -< C15
+ x16 <- returnA -< C16
+ x17 <- returnA -< C17
+ x18 <- returnA -< C18
+ x19 <- returnA -< C19
+ x20 <- returnA -< C20
+ x21 <- returnA -< C21
+ x22 <- returnA -< C22
+ x23 <- returnA -< C23
+ x24 <- returnA -< C24
+ x25 <- returnA -< C25
+ x26 <- returnA -< C26
+ x27 <- returnA -< C27
+ x28 <- returnA -< C28
+ x29 <- returnA -< C29
+ x30 <- returnA -< C30
+ x31 <- returnA -< C31
+ x32 <- returnA -< C32
+ x33 <- returnA -< C33
+ x34 <- returnA -< C34
+ x35 <- returnA -< C35
+ x36 <- returnA -< C36
+ x37 <- returnA -< C37
+ x38 <- returnA -< C38
+ x39 <- returnA -< C39
+ x40 <- returnA -< C40
+ x41 <- returnA -< C41
+ x42 <- returnA -< C42
+ x43 <- returnA -< C43
+ x44 <- returnA -< C44
+ x45 <- returnA -< C45
+ x46 <- returnA -< C46
+ x47 <- returnA -< C47
+ x48 <- returnA -< C48
+ x49 <- returnA -< C49
+ x50 <- returnA -< C50
+ x51 <- returnA -< C51
+ x52 <- returnA -< C52
+ x53 <- returnA -< C53
+ x54 <- returnA -< C54
+ x55 <- returnA -< C55
+ x56 <- returnA -< C56
+ x57 <- returnA -< C57
+ x58 <- returnA -< C58
+ x59 <- returnA -< C59
+ x60 <- returnA -< C60
+ x61 <- returnA -< C61
+ x62 <- returnA -< C62
+ x63 <- returnA -< C63
+ x64 <- returnA -< C64
+ x65 <- returnA -< C65
+ x66 <- returnA -< C66
+ x67 <- returnA -< C67
+ x68 <- returnA -< C68
+ x69 <- returnA -< C69
+ x70 <- returnA -< C70
+ returnA -< x70
+ returnA -< x69
+ returnA -< x68
+ returnA -< x67
+ returnA -< x66
+ returnA -< x65
+ returnA -< x64
+ returnA -< x63
+ returnA -< x62
+ returnA -< x61
+ returnA -< x60
+ returnA -< x59
+ returnA -< x58
+ returnA -< x57
+ returnA -< x56
+ returnA -< x55
+ returnA -< x54
+ returnA -< x53
+ returnA -< x52
+ returnA -< x51
+ returnA -< x50
+ returnA -< x49
+ returnA -< x48
+ returnA -< x47
+ returnA -< x46
+ returnA -< x45
+ returnA -< x44
+ returnA -< x43
+ returnA -< x42
+ returnA -< x41
+ returnA -< x40
+ returnA -< x39
+ returnA -< x38
+ returnA -< x37
+ returnA -< x36
+ returnA -< x35
+ returnA -< x34
+ returnA -< x33
+ returnA -< x32
+ returnA -< x31
+ returnA -< x30
+ returnA -< x29
+ returnA -< x28
+ returnA -< x27
+ returnA -< x26
+ returnA -< x25
+ returnA -< x24
+ returnA -< x23
+ returnA -< x22
+ returnA -< x21
+ returnA -< x20
+ returnA -< x19
+ returnA -< x18
+ returnA -< x17
+ returnA -< x16
+ returnA -< x15
+ returnA -< x14
+ returnA -< x13
+ returnA -< x12
+ returnA -< x11
+ returnA -< x10
+ returnA -< x9
+ returnA -< x8
+ returnA -< x7
+ returnA -< x6
+ returnA -< x5
+ returnA -< x4
+ returnA -< x3
+ returnA -< x2
+ returnA -< x1
+ returnA -< x0
diff --git a/testsuite/tests/arrows/should_compile/arrowrec1.hs b/testsuite/tests/arrows/should_compile/arrowrec1.hs
index 57b6de783c..b5a575ec66 100644
--- a/testsuite/tests/arrows/should_compile/arrowrec1.hs
+++ b/testsuite/tests/arrows/should_compile/arrowrec1.hs
@@ -7,7 +7,7 @@ import Data.Char
f :: ArrowLoop a => a Char Int
f = proc x -> do
- a <- returnA -< ord x
- rec b <- returnA -< ord c - ord x
- c <- returnA -< chr a
- returnA -< b + ord c
+ a <- returnA -< ord x
+ rec b <- returnA -< ord c - ord x
+ c <- returnA -< chr a
+ returnA -< b + ord c