diff options
author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-18 22:44:19 +0200 |
---|---|---|
committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-20 16:22:07 +0200 |
commit | 46ff80f26d1892e1b50e3f10c5d3fded33da6e81 (patch) | |
tree | c53fd835b689b6b64a729a42e4cc6482d8fb5215 /testsuite/tests/arrows/should_compile | |
parent | 7e7094f166b6e475a49e20b98cbca851334aedaf (diff) | |
download | haskell-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.hs | 12 | ||||
-rw-r--r-- | testsuite/tests/arrows/should_compile/arrowdo1.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/arrows/should_compile/arrowdo2.hs | 4 | ||||
-rw-r--r-- | testsuite/tests/arrows/should_compile/arrowdo3.hs | 282 | ||||
-rw-r--r-- | testsuite/tests/arrows/should_compile/arrowrec1.hs | 8 |
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 |