Commit 80dfbe8d authored by Simon Marlow's avatar Simon Marlow
Browse files

update output (line-length changes in pretty printer)

parent cd931662
Left user error (error)
Stopped at <exception thrown>
_exception :: e = IOException (GHC.IOBase.IOError Nothing GHC.IOBase.UserError
....)
_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
....)
_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
....)
_exception :: e = IOException (GHC.IOBase.IOError Nothing
GHC.IOBase.UserError ....)
Left user error (error)
......@@ -2,8 +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]
......
......@@ -4,7 +4,8 @@ b = (_t1::[Maybe Integer])
Just 1
b = Just 1 : (_t2::[Maybe Integer])
4
b = [Just 1,(_t3::Maybe Integer),(_t4::Maybe Integer),(_t5::Maybe Integer)]
b = [Just 1,(_t3::Maybe Integer),(_t4::Maybe Integer),
(_t5::Maybe Integer)]
b = [Just 1,_,_,_]
[Just 1,Just 2,Just 3,Just 4]
b = [Just 1,Just 2,Just 3,Just 4]
......
......@@ -4,10 +4,11 @@ t = O ((_t2::a) : (_t3::[a]))
()
t = O ((_t4::a1) : (_t5::a1) : (_t6::[a1]))
()
t = O ((_t7::Maybe [a]) : Just [(_t8::a),(_t9::a)] : (_t10::[Maybe [a]]))
t = O ((_t7::Maybe [a]) : Just [(_t8::a),(_t9::a)] :
(_t10::[Maybe [a]]))
()
t = O ((_t11::Maybe [Integer]) : Just [2,(_t12::Integer)] :
(_t13::[Maybe [Integer]]))
()
t = O (Just [(_t14::Integer),(_t15::Integer)] : Just [2,(_t16::Integer)] :
(_t17::[Maybe [Integer]]))
t = O (Just [(_t14::Integer),(_t15::Integer)] :
Just [2,(_t16::Integer)] : (_t17::[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')))
(Data.Sequence.One (Data.Sequence.Elem 'a'))
Data.Sequence.Empty
(Data.Sequence.Two (Data.Sequence.Elem 'b')
(Data.Sequence.Elem 'c')))
l = fromList "abc"
......@@ -2,4 +2,5 @@ l = (_t1::[Maybe Integer])
Just 1
r = GHC.IOBase.IORef (GHC.STRef.STRef (GHC.Prim.MutVar# (Just 1 :
(_t2::[Maybe Integer]))))
r = GHC.IOBase.IORef (GHC.STRef.STRef (GHC.Prim.MutVar# (Just 1 : _)))
r = GHC.IOBase.IORef (GHC.STRef.STRef (GHC.Prim.MutVar# (Just 1 :
_)))
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