diff options
| author | simonpj <simonpj@microsoft.com> | 2010-10-22 16:03:04 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-10-22 16:03:04 +0000 |
| commit | 94651afe09ae2c79723f29732ca0b1946f68d1f5 (patch) | |
| tree | 692f7f21a6020f991572945340ecae65d4651eef /testsuite/tests/ghc-regress/rebindable/rebindable6.stderr | |
| parent | 0d8e310aedcf336e9434928abd6c78327c7c8db8 (diff) | |
| download | haskell-94651afe09ae2c79723f29732ca0b1946f68d1f5.tar.gz | |
Follow test output changes
Diffstat (limited to 'testsuite/tests/ghc-regress/rebindable/rebindable6.stderr')
| -rw-r--r-- | testsuite/tests/ghc-regress/rebindable/rebindable6.stderr | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/testsuite/tests/ghc-regress/rebindable/rebindable6.stderr b/testsuite/tests/ghc-regress/rebindable/rebindable6.stderr index 6c23932deb..f77281e3df 100644 --- a/testsuite/tests/ghc-regress/rebindable/rebindable6.stderr +++ b/testsuite/tests/ghc-regress/rebindable/rebindable6.stderr @@ -6,33 +6,33 @@ rebindable6.hs:106:17: add an instance declaration for (HasSeq (IO a -> t -> IO b)) In a stmt of a 'do' expression: f In the expression: - do { f; - Just (b :: b) <- g; - return b } + do { f; + Just (b :: b) <- g; + return b } In an equation for `test_do': test_do f g - = do { f; - Just (b :: b) <- g; - return b } + = do { f; + Just (b :: b) <- g; + return b } rebindable6.hs:107:17: - No instances for (HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t), - HasFail ([Prelude.Char] -> t1)) + No instances for (HasFail ([Prelude.Char] -> t1), + HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t)) arising from a do statement Possible fix: add an instance declaration for - (HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t), - HasFail ([Prelude.Char] -> t1)) + (HasFail ([Prelude.Char] -> t1), + HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t)) In a stmt of a 'do' expression: Just (b :: b) <- g In the expression: - do { f; - Just (b :: b) <- g; - return b } + do { f; + Just (b :: b) <- g; + return b } In an equation for `test_do': test_do f g - = do { f; - Just (b :: b) <- g; - return b } + = do { f; + Just (b :: b) <- g; + return b } rebindable6.hs:108:17: No instance for (HasReturn (b -> t1)) @@ -41,6 +41,6 @@ rebindable6.hs:108:17: In the expression: return b In a stmt of a 'do' expression: Just (b :: b) <- g In the expression: - do { f; - Just (b :: b) <- g; - return b } + do { f; + Just (b :: b) <- g; + return b } |