Commit d09518c9 authored by mnislaih's avatar mnislaih
Browse files

Adapt output to improvements in the TTerm pretty printer

parent 69aad50c
Left user error (error) Left user error (error)
Stopped at <exception thrown> Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing _exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
GHC.IOBase.UserError ....)
[]
['e','r','r','o','r']
Nothing)
*** Exception: user error (error) *** Exception: user error (error)
Stopped at <exception thrown> Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing _exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
GHC.IOBase.UserError ....)
[]
['e','r','r','o','r']
Nothing)
*** Exception: user error (error) *** Exception: user error (error)
Stopped at <exception thrown> Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing _exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
GHC.IOBase.UserError ....)
[]
['e','r','r','o','r']
Nothing)
Left user error (error) Left user error (error)
...@@ -2,7 +2,8 @@ li = (_t1::[Maybe Integer]) ...@@ -2,7 +2,8 @@ li = (_t1::[Maybe Integer])
Just 0 Just 0
li = Just 0 : (_t2::[Maybe Integer]) li = Just 0 : (_t2::[Maybe Integer])
6 6
li = [Just 0,(_t3::Maybe Integer),(_t4::Maybe Integer),(_t5::Maybe Integer),(_t6::Maybe Integer),(_t7::Maybe Integer)] li = [Just 0,(_t3::Maybe Integer),(_t4::Maybe Integer),(_t5::Maybe Integer),
(_t6::Maybe Integer),(_t7::Maybe Integer)]
li = [Just 0,_,_,_,_,_] li = [Just 0,_,_,_,_,_]
[Just 0,Just 1,Just 2,Just 3,Just 4,Just 5] [Just 0,Just 1,Just 2,Just 3,Just 4,Just 5]
li = [Just 0,Just 1,Just 2,Just 3,Just 4,Just 5] li = [Just 0,Just 1,Just 2,Just 3,Just 4,Just 5]
......
...@@ -8,4 +8,5 @@ t = O ((_t7::Maybe [a]) : Just [(_t8::a),(_t9::a)] : (_t10::[Maybe [a]])) ...@@ -8,4 +8,5 @@ t = O ((_t7::Maybe [a]) : Just [(_t8::a),(_t9::a)] : (_t10::[Maybe [a]]))
() ()
t = O ((_t11::Maybe [Integer]) : Just [2,2] : (_t12::[Maybe [Integer]])) t = O ((_t11::Maybe [Integer]) : Just [2,2] : (_t12::[Maybe [Integer]]))
() ()
t = O (Just [(_t13::Integer),(_t14::Integer)] : Just [2,2] : (_t15::[Maybe [Integer]])) t = O (Just [(_t13::Integer),(_t14::Integer)] : Just [2,2] :
(_t15::[Maybe [Integer]]))
fromList "abc" fromList "abc"
l = Data.Sequence.Seq (Data.Sequence.Deep 3 (Data.Sequence.One (Data.Sequence.Elem 'a')) Data.Sequence.Empty (Data.Sequence.Two (Data.Sequence.Elem 'b') (Data.Sequence.Elem 'c'))) l = Data.Sequence.Seq (Data.Sequence.Deep 3
(Data.Sequence.One (Data.Sequence.Elem 'a')) Data.Sequence.Empty
(Data.Sequence.Two (Data.Sequence.Elem 'b') (Data.Sequence.Elem 'c')))
l = fromList "abc" l = fromList "abc"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment