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)
Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing
GHC.IOBase.UserError
[]
['e','r','r','o','r']
Nothing)
_exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
....)
*** Exception: user error (error)
Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing
GHC.IOBase.UserError
[]
['e','r','r','o','r']
Nothing)
_exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
....)
*** Exception: user error (error)
Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing
GHC.IOBase.UserError
[]
['e','r','r','o','r']
Nothing)
_exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
....)
Left user error (error)
......@@ -2,7 +2,8 @@ li = (_t1::[Maybe Integer])
Just 0
li = Just 0 : (_t2::[Maybe Integer])
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,_,_,_,_,_]
[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]]))
()
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"
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"
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