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/parser/should_compile/read026.hs | |
| parent | 7e7094f166b6e475a49e20b98cbca851334aedaf (diff) | |
| download | haskell-46ff80f26d1892e1b50e3f10c5d3fded33da6e81.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/parser/should_compile/read026.hs')
| -rw-r--r-- | testsuite/tests/parser/should_compile/read026.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/parser/should_compile/read026.hs b/testsuite/tests/parser/should_compile/read026.hs index 0ea695d373..0605ca054d 100644 --- a/testsuite/tests/parser/should_compile/read026.hs +++ b/testsuite/tests/parser/should_compile/read026.hs @@ -1,6 +1,6 @@ module ShouldCompile where (<>) :: (a -> Maybe b) -> (b -> Maybe c) -> (a -> Maybe c) -(m1 <> m2) a1 = case m1 a1 of +(m1 <> m2) a1 = case m1 a1 of Nothing -> Nothing Just a2 -> m2 a2 |