Skip to content

Instantly share code, notes, and snippets.

@mcdulltii
Created June 10, 2022 13:40
Show Gist options
  • Save mcdulltii/ab5e5e80aba7b4ffa930b2ef611715f0 to your computer and use it in GitHub Desktop.
Save mcdulltii/ab5e5e80aba7b4ffa930b2ef611715f0 to your computer and use it in GitHub Desktop.
GreyCTF Scripts
Found closure:
Pointer: Main_main_closure
Type: thunk (0 ptr, 2 nonptr)
Found function/thunk!
Name: Main_main_info
Arg pattern:
Heap: []
Stack: ['<pp, tag 0>', '<loc_5030888, tag 0>', '<loc_5031992, tag 1>', '<upd, tag 0>', '!unknown!']
Number of non-void args: 1
Called: >>=
Arg pattern: p
Interpretation: call >>= on ['<$fMonadIO, tag 0>']
then apply the result to ['<loc_5030888, tag 0>', '<loc_5031992, tag 1>']
then update the thunk at !unknown!
Found closure:
Pointer: loc_5031992
Type: function (0 ptr, 2 nonptr)
Found function/thunk!
Name: loc_4232104
Arg pattern: p
Heap: ['<loc_4231968, tag 0>', '<loc_4232104_arg_0, tag 0>']
Stack: ['<pp, tag 0>', '<getCurrentTime, tag 0>', "<<index 0 in loc_4232104's heap>, tag 1>"]
Number of non-void args: 1
Called: >>=
Arg pattern: p
Interpretation: call >>= on ['<$fMonadIO, tag 0>']
then apply the result to ['<getCurrentTime, tag 0>', "<<index 0 in loc_4232104's heap>, tag 1>"]
Found closure:
Pointer: <index 0 in loc_4232104's heap>
Type: function
Found function/thunk!
Name: loc_4231968
Arg pattern: p
Heap: ['<loc_4230768, tag 0>', '<loc_4232104_arg_0, tag 0>', '<loc_4231832, tag 0>', 'None', '<loc_4231968_arg_0, tag 0>']
Stack: ['<pp, tag 0>', "<<index 2 in loc_4231968's heap>, tag 0>", "<<index 0 in loc_4231968's heap>, tag 1>"]
Number of non-void args: 1
Called: >>=
Arg pattern: p
Interpretation: call >>= on ['<$fMonadIO, tag 0>']
then apply the result to ["<<index 2 in loc_4231968's heap>, tag 0>", "<<index 0 in loc_4231968's heap>, tag 1>"]
Found closure:
Pointer: <index 0 in loc_4231968's heap>
Type: function
Found function/thunk!
Name: loc_4230768
Arg pattern: p
Heap: ['<loc_4229920, tag 0>', 'None', '<loc_4230624, tag 0>', 'None', '<loc_4232104_arg_0, tag 0>', '<loc_4230768_arg_0, tag 0>']
Stack: ['<pp, tag 0>', "<<index 2 in loc_4230768's heap>, tag 0>", "<<index 0 in loc_4230768's heap>, tag 1>"]
Number of non-void args: 1
Called: >>=
Arg pattern: p
Interpretation: call >>= on ['<$fMonadIO, tag 0>']
then apply the result to ["<<index 2 in loc_4230768's heap>, tag 0>", "<<index 0 in loc_4230768's heap>, tag 1>"]
Found closure:
Pointer: <index 0 in loc_4230768's heap>
Type: function (1 ptr, 0 nonptr)
Found function/thunk!
Name: loc_4229920
Arg pattern: p
Heap: ['<loc_4229800, tag 0>', 'None', '<loc_4229920_arg_0, tag 0>']
Stack: []
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ['<putStr, tag 0>', "<<index 0 in loc_4229920's heap>, tag 0>"]
Found closure:
Pointer: <index 0 in loc_4229920's heap>
Type: thunk
Found function/thunk!
Name: loc_4229800
Arg pattern:
Heap: ['<loc_4229696, tag 0>', 'None', '<loc_4229920_arg_0, tag 0>']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4229920's heap>, tag 0>"]
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ['<pack, tag 0>', "<<index 0 in loc_4229800's heap>, tag 0>"]
then update the thunk at <<index 0 in loc_4229920's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4229800's heap>
Type: thunk
Found function/thunk!
Name: loc_4229696
Arg pattern:
Heap: ['<loc_4229592, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4229800's heap>, tag 0>"]
Number of non-void args: 2
Called: map
Arg pattern: pp
Interpretation: call map on ["<<index 0 in loc_4229696's heap>, tag 0>", '<loc_4229920_arg_0, tag 0>']
then update the thunk at <<index 0 in loc_4229800's heap>, tag 0>
Found closure:
Pointer: loc_4229920_arg_0
Simple closure!
Found closure:
Pointer: <index 0 in loc_4229696's heap>
Type: function (static)
Error when processing closure at <index 0 in loc_4229696's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: map
Library defined!
Found closure:
Pointer: pack
Library defined!
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: putStr
Library defined!
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: <index 2 in loc_4230768's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4230624
Arg pattern:
Heap: ['<loc_4230416, tag 0>', 'None', '<loc_4232104_arg_0, tag 0>', '<loc_4230768_arg_0, tag 0>', '<loc_4230568, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 2 in loc_4230768's heap>, tag 0>"]
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ["<<index 4 in loc_4230624's heap>, tag 0>", "<<index 0 in loc_4230624's heap>, tag 0>"]
then update the thunk at <<index 2 in loc_4230768's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4230624's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4230416
Arg pattern:
Heap: ['<loc_4230080, tag 0>', 'None', '<loc_4230768_arg_0, tag 0>', '<loc_4230256, tag 0>', 'None', '<loc_4232104_arg_0, tag 0>', '<loc_4230360, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4230624's heap>, tag 0>"]
Number of non-void args: 3
Called: zipWith
Arg pattern: ppp
Interpretation: call zipWith on ["<<index 6 in loc_4230416's heap>, tag 0>", "<<index 3 in loc_4230416's heap>, tag 0>", "<<index 0 in loc_4230416's heap>, tag 0>"]
then update the thunk at <<index 0 in loc_4230624's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4230416's heap>
Type: thunk
Found function/thunk!
Name: loc_4230080
Arg pattern:
Heap: ['<loc_4230008, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4230416's heap>, tag 0>"]
Number of non-void args: 2
Called: map
Arg pattern: pp
Interpretation: call map on ["<<index 0 in loc_4230080's heap>, tag 0>", '<loc_4230768_arg_0, tag 0>']
then update the thunk at <<index 0 in loc_4230416's heap>, tag 0>
Found closure:
Pointer: loc_4230768_arg_0
Simple closure!
Found closure:
Pointer: <index 0 in loc_4230080's heap>
Type: function (static)
Error when processing closure at <index 0 in loc_4230080's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: map
Library defined!
Found closure:
Pointer: <index 3 in loc_4230416's heap>
Type: thunk
Found function/thunk!
Name: loc_4230256
Arg pattern:
Heap: ['<loc_4230184, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 3 in loc_4230416's heap>, tag 0>"]
Number of non-void args: 2
Called: map
Arg pattern: pp
Interpretation: call map on ["<<index 0 in loc_4230256's heap>, tag 0>", '<loc_4232104_arg_0, tag 0>']
then update the thunk at <<index 3 in loc_4230416's heap>, tag 0>
Found closure:
Pointer: loc_4232104_arg_0
Simple closure!
Found closure:
Pointer: <index 0 in loc_4230256's heap>
Type: function (static)
Error when processing closure at <index 0 in loc_4230256's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: map
Library defined!
Found closure:
Pointer: <index 6 in loc_4230416's heap>
Type: function (static)
Error when processing closure at <index 6 in loc_4230416's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: zipWith
Library defined!
Found closure:
Pointer: <index 4 in loc_4230624's heap>
Type: function (static)
Error when processing closure at <index 4 in loc_4230624's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: $fMonadIO
Library defined!
Found function/thunk!
Name: base_GHC.Base_>>=_info
Arg pattern: p
Library defined!
Found closure:
Pointer: <index 2 in loc_4231968's heap>
Type: thunk
Found function/thunk!
Name: loc_4231832
Arg pattern:
Heap: ['<loc_4231648, tag 0>', 'None', '<loc_4231968_arg_0, tag 0>', '<loc_4231776, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 2 in loc_4231968's heap>, tag 0>"]
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ["<<index 3 in loc_4231832's heap>, tag 0>", "<<index 0 in loc_4231832's heap>, tag 0>"]
then update the thunk at <<index 2 in loc_4231968's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4231832's heap>
Type: thunk
Found function/thunk!
Name: loc_4231648
Arg pattern:
Heap: ['<loc_4231000, tag 0>', 'None', '<loc_4231968_arg_0, tag 0>', '<loc_4231552, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4231832's heap>, tag 0>"]
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ["<<index 3 in loc_4231648's heap>, tag 0>", "<<index 0 in loc_4231648's heap>, tag 0>"]
then update the thunk at <<index 0 in loc_4231832's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4231648's heap>
Type: thunk
Found function/thunk!
Name: loc_4231000
Arg pattern:
Heap: ['<loc_4230896, tag 0>', 'None', '<loc_4231968_arg_0, tag 0>', '<loc_4230968, tag 0>', 'None']
Stack: ['<frame, tag 0>', "<<index 0 in loc_4231648's heap>, tag 0>"]
Number of non-void args: 2
Called: $
Arg pattern: pp
Interpretation: call $ on ["<<index 3 in loc_4231000's heap>, tag 1>", "<<index 0 in loc_4231000's heap>, tag 0>"]
then update the thunk at <<index 0 in loc_4231648's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4231000's heap>
Type: thunk
Found function/thunk!
Name: loc_4230896
Arg pattern:
Heap: []
Stack: ['<frame, tag 0>', "<<index 0 in loc_4231000's heap>, tag 0>"]
Number of non-void args: 1
Called: loc_5031104
Arg pattern: p
Interpretation: call loc_5031104 on ['<loc_4231968_arg_0, tag 0>']
then update the thunk at <<index 0 in loc_4231000's heap>, tag 0>
Found closure:
Pointer: loc_4231968_arg_0
Simple closure!
Found closure:
Pointer: loc_5031104
Type: thunk (0 ptr, 2 nonptr)
Found function/thunk!
Name: loc_4228464
Arg pattern:
Heap: []
Stack: ['<upd, tag 0>', '!unknown!']
Number of non-void args: 2
Called: .
Arg pattern: pp
Interpretation: call . on ['<loc_5030960, tag 0>', '<loc_5031032, tag 0>']
then update the thunk at !unknown!
Found closure:
Pointer: loc_5031032
Type: thunk (0 ptr, 2 nonptr)
Found function/thunk!
Name: loc_4228360
Arg pattern:
Heap: []
Stack: ['<upd, tag 0>', '!unknown!']
Number of non-void args: 2
Called: .
Arg pattern: pp
Interpretation: call . on ['<nominalDiffTimeToSeconds, tag 0>', '<utcTimeToPOSIXSeconds, tag 0>']
then update the thunk at !unknown!
Found closure:
Pointer: utcTimeToPOSIXSeconds
Library defined!
Found closure:
Pointer: nominalDiffTimeToSeconds
Library defined!
Found closure:
Pointer: .
Library defined!
Found closure:
Pointer: loc_5030960
Type: thunk (0 ptr, 2 nonptr)
Found function/thunk!
Name: loc_4228216
Arg pattern:
Heap: []
Stack: ['<loc_4228312, tag 0>', '<upd, tag 0>', '!unknown!']
Number of non-void args: 1
Called: $fRealFracFixed
Arg pattern: p
Interpretation: call $fRealFracFixed on ['<$fHasResolutionTYPEE12, tag 0>']
then inspect using <loc_4228312, tag 0>
Found case inspection!
Name: loc_4228312
Found case arm:
From case: loc_4228312
Pattern: DefaultTag()
Heap: []
Stack: ['<p, tag 0>', '<$fIntegralInt, tag 0>', '<upd, tag 0>', '!unknown!']
Number of non-void args: 1
Called: floor
Arg pattern: p
Interpretation: call floor on ['<<index 0 in loc_4228312_case_tag_DEFAULT>, tag 1>']
then apply the result to ['<$fIntegralInt, tag 0>']
then update the thunk at !unknown!
Found closure:
Pointer: $fIntegralInt
Library defined!
Found closure:
Pointer: <index 0 in loc_4228312_case_tag_DEFAULT>
Simple closure!
Found function/thunk!
Name: base_GHC.Real_floor_info
Arg pattern: p
Library defined!
Found closure:
Pointer: $fHasResolutionTYPEE12
Library defined!
Found closure:
Pointer: $fRealFracFixed
Library defined!
Found closure:
Pointer: .
Library defined!
Found closure:
Pointer: <index 3 in loc_4231000's heap>
Type: function (1 ptr, 0 nonptr)
Found function/thunk!
Name: loc_4230968
Arg pattern: p
Heap: []
Stack: []
Number of non-void args: 2
Called: loc_4229392
Arg pattern: pp
Interpretation: call loc_4229392 on ['<$fIntegralInt, tag 0>', '<loc_4230968_arg_0, tag 0>']
Found closure:
Pointer: loc_4230968_arg_0
Simple closure!
Found closure:
Pointer: $fIntegralInt
Library defined!
Found function/thunk!
Name: loc_4229392
Arg pattern: pp
Heap: ['<loc_4229128, tag 0>', 'None', '<loc_4229392_arg_0, tag 0>', '<loc_4229392_arg_1, tag 0>', '<loc_4229320, tag 0>', 'None', "<<index 0 in loc_4229392's heap>, tag 0>", '<:, tag 0>', "<<index 0 in loc_4229392's heap>, tag 0>", "<<index 4 in loc_4229392's heap>, tag 0>"]
Stack: []
Interpretation: return <<index 7 in loc_4229392's heap>, tag 2>
Found closure:
Pointer: <index 7 in loc_4229392's heap>
Type: constructor (2 ptr, 0 nonptr)
Found closure:
Pointer: <index 4 in loc_4229392's heap>
Type: thunk
Found function/thunk!
Name: loc_4229320
Arg pattern:
Heap: []
Stack: ['<frame, tag 0>', "<<index 4 in loc_4229392's heap>, tag 0>"]
Number of non-void args: 2
Called: loc_4229392
Arg pattern: pp
Interpretation: call loc_4229392 on ['<$fIntegralInt32, tag 0>', "<<index 0 in loc_4229392's heap>, tag 0>"]
then update the thunk at <<index 4 in loc_4229392's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4229392's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4229128
Arg pattern:
Heap: ['<loc_4228568, tag 0>', 'None', '<loc_4229392_arg_0, tag 0>', '<loc_4229392_arg_1, tag 0>', '<loc_4228728, tag 0>', 'None', "<<index 0 in loc_4229128's heap>, tag 0>", '<loc_4228928, tag 0>', 'None', "<<index 4 in loc_4229128's heap>, tag 0>", '<loc_4229048, tag 0>', 'None', "<<index 7 in loc_4229128's heap>, tag 0>"]
Stack: ['<pp, tag 0>', "<<index 7 in loc_4229128's heap>, tag 0>", "<<index 10 in loc_4229128's heap>, tag 0>", '<frame, tag 0>', "<<index 0 in loc_4229392's heap>, tag 0>"]
Number of non-void args: 1
Called: xor
Arg pattern: p
Interpretation: call xor on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 7 in loc_4229128's heap>, tag 0>", "<<index 10 in loc_4229128's heap>, tag 0>"]
then update the thunk at <<index 0 in loc_4229392's heap>, tag 0>
Found closure:
Pointer: <index 10 in loc_4229128's heap>
Type: thunk
Found function/thunk!
Name: loc_4229048
Arg pattern:
Heap: []
Stack: ['<pp, tag 0>', "<<index 7 in loc_4229128's heap>, tag 0>", '<loc_5084408, tag 1>', '<frame, tag 0>', "<<index 10 in loc_4229128's heap>, tag 0>"]
Number of non-void args: 1
Called: shiftL
Arg pattern: p
Interpretation: call shiftL on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 7 in loc_4229128's heap>, tag 0>", '<loc_5084408, tag 1>']
then update the thunk at <<index 10 in loc_4229128's heap>, tag 0>
Found closure:
Pointer: loc_5084408
Type: constructor (0 ptr, 1 nonptr)
Found closure:
Pointer: <index 7 in loc_4229128's heap>
Type: thunk
Found function/thunk!
Name: loc_4228928
Arg pattern:
Heap: ['<loc_4228848, tag 0>', 'None', "<<index 4 in loc_4229128's heap>, tag 0>"]
Stack: ['<pp, tag 0>', "<<index 4 in loc_4229128's heap>, tag 0>", "<<index 0 in loc_4228928's heap>, tag 0>", '<frame, tag 0>', "<<index 7 in loc_4229128's heap>, tag 0>"]
Number of non-void args: 1
Called: xor
Arg pattern: p
Interpretation: call xor on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 4 in loc_4229128's heap>, tag 0>", "<<index 0 in loc_4228928's heap>, tag 0>"]
then update the thunk at <<index 7 in loc_4229128's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4228928's heap>
Type: thunk
Found function/thunk!
Name: loc_4228848
Arg pattern:
Heap: []
Stack: ['<pp, tag 0>', "<<index 4 in loc_4229128's heap>, tag 0>", '<loc_5084600, tag 1>', '<frame, tag 0>', "<<index 0 in loc_4228928's heap>, tag 0>"]
Number of non-void args: 1
Called: shiftR
Arg pattern: p
Interpretation: call shiftR on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 4 in loc_4229128's heap>, tag 0>", '<loc_5084600, tag 1>']
then update the thunk at <<index 0 in loc_4228928's heap>, tag 0>
Found closure:
Pointer: loc_5084600
Type: constructor (0 ptr, 1 nonptr)
Found closure:
Pointer: <index 4 in loc_4229128's heap>
Type: thunk
Found function/thunk!
Name: loc_4228728
Arg pattern:
Heap: ['<loc_4228648, tag 0>', 'None', "<<index 0 in loc_4229128's heap>, tag 0>"]
Stack: ['<pp, tag 0>', "<<index 0 in loc_4229128's heap>, tag 0>", "<<index 0 in loc_4228728's heap>, tag 0>", '<frame, tag 0>', "<<index 4 in loc_4229128's heap>, tag 0>"]
Number of non-void args: 1
Called: xor
Arg pattern: p
Interpretation: call xor on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 0 in loc_4229128's heap>, tag 0>", "<<index 0 in loc_4228728's heap>, tag 0>"]
then update the thunk at <<index 4 in loc_4229128's heap>, tag 0>
Found closure:
Pointer: <index 0 in loc_4228728's heap>
Type: thunk
Found function/thunk!
Name: loc_4228648
Arg pattern:
Heap: []
Stack: ['<pp, tag 0>', "<<index 0 in loc_4229128's heap>, tag 0>", '<loc_5084536, tag 1>', '<frame, tag 0>', "<<index 0 in loc_4228728's heap>, tag 0>"]
Number of non-void args: 1
Called: shiftL
Arg pattern: p
Interpretation: call shiftL on ['<$fBitsInt32, tag 0>']
then apply the result to ["<<index 0 in loc_4229128's heap>, tag 0>", '<loc_5084536, tag 1>']
then update the thunk at <<index 0 in loc_4228728's heap>, tag 0>
Found closure:
Pointer: loc_5084536
Type: constructor (0 ptr, 1 nonptr)
Found closure:
Pointer: <index 0 in loc_4229128's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4228568
Arg pattern:
Heap: []
Stack: ['<frame, tag 0>', "<<index 0 in loc_4229128's heap>, tag 0>"]
Number of non-void args: 3
Called: fromIntegral
Arg pattern: ppp
Interpretation: call fromIntegral on ['<loc_4229392_arg_0, tag 0>', '<$fNumInt32, tag 0>', '<loc_4229392_arg_1, tag 0>']
then update the thunk at <<index 0 in loc_4229128's heap>, tag 0>
Found closure:
Pointer: loc_4229392_arg_1
Simple closure!
Found closure:
Pointer: $fNumInt32
Library defined!
Found closure:
Pointer: loc_4229392_arg_0
Simple closure!
Found closure:
Pointer: fromIntegral
Library defined!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_shiftL_info
Arg pattern: p
Library defined!
Found closure:
Pointer: <index 0 in loc_4229128's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4228568
Arg pattern:
Seen before!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_xor_info
Arg pattern: p
Library defined!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_shiftR_info
Arg pattern: p
Library defined!
Found closure:
Pointer: <index 4 in loc_4229128's heap>
Type: thunk
Found function/thunk!
Name: loc_4228728
Arg pattern:
Seen before!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_xor_info
Arg pattern: p
Library defined!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_shiftL_info
Arg pattern: p
Library defined!
Found closure:
Pointer: <index 7 in loc_4229128's heap>
Type: thunk
Found function/thunk!
Name: loc_4228928
Arg pattern:
Seen before!
Found closure:
Pointer: $fBitsInt32
Library defined!
Found function/thunk!
Name: base_Data.Bits_xor_info
Arg pattern: p
Library defined!
Found closure:
Pointer: $fIntegralInt32
Library defined!
Found function/thunk!
Name: loc_4229392
Arg pattern: pp
Seen before!
Found closure:
Pointer: <index 0 in loc_4229392's heap>
Type: thunk (0 ptr, 1 nonptr)
Found function/thunk!
Name: loc_4229128
Arg pattern:
Seen before!
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: <index 3 in loc_4231648's heap>
Type: function (static)
Error when processing closure at <index 3 in loc_4231648's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: <index 3 in loc_4231832's heap>
Type: function (static)
Error when processing closure at <index 3 in loc_4231832's heap>
Error: unknown function type
Error Location: 60
No Disassembly Available
Found closure:
Pointer: $
Library defined!
Found closure:
Pointer: $fMonadIO
Library defined!
Found function/thunk!
Name: base_GHC.Base_>>=_info
Arg pattern: p
Library defined!
Found closure:
Pointer: getCurrentTime
Library defined!
Found closure:
Pointer: $fMonadIO
Library defined!
Found function/thunk!
Name: base_GHC.Base_>>=_info
Arg pattern: p
Library defined!
Found closure:
Pointer: loc_5030888
Type: thunk (0 ptr, 2 nonptr)
Found function/thunk!
Name: loc_4228104
Arg pattern:
Heap: []
Stack: ['<pp, tag 0>', '<unpack, tag 0>', '<getLine, tag 0>', '<upd, tag 0>', '!unknown!']
Number of non-void args: 1
Called: fmap
Arg pattern: p
Interpretation: call fmap on ['<$fFunctorIO, tag 0>']
then apply the result to ['<unpack, tag 0>', '<getLine, tag 0>']
then update the thunk at !unknown!
Found closure:
Pointer: getLine
Library defined!
Found closure:
Pointer: unpack
Library defined!
Found closure:
Pointer: $fFunctorIO
Library defined!
Found function/thunk!
Name: base_GHC.Base_fmap_info
Arg pattern: p
Library defined!
Found closure:
Pointer: $fMonadIO
Library defined!
Found function/thunk!
Name: base_GHC.Base_>>=_info
Arg pattern: p
Library defined!
Main_main_closure = >>= $fMonadIO
(fmap $fFunctorIO unpack getLine)
(\loc_4232104_arg_0 ->
>>= $fMonadIO
getCurrentTime
(\loc_4231968_arg_0 ->
>>= $fMonadIO
($
!!ERROR!!
($
!!ERROR!!
($
(\loc_4230968_arg_0 -> loc_4229392 $fIntegralInt loc_4230968_arg_0)
(.
(case $fRealFracFixed $fHasResolutionTYPEE12 of
loc_4228312_case_tag_DEFAULT_arg_0@_DEFAULT -> floor <index 0 in loc_4228312_case_tag_DEFAULT> $fIntegralInt
)
(. nominalDiffTimeToSeconds utcTimeToPOSIXSeconds)
loc_4231968_arg_0
)
)
)
)
(\loc_4230768_arg_0 -> >>= $fMonadIO ($ !!ERROR!! (zipWith !!ERROR!! (map !!ERROR!! loc_4232104_arg_0) (map !!ERROR!! loc_4230768_arg_0))) (\loc_4229920_arg_0 -> $ putStr ($ pack (map !!ERROR!! loc_4229920_arg_0))))
)
)
loc_4229392 = \loc_4229392_arg_0 loc_4229392_arg_1 -> : loc_4229128 (loc_4229392 $fIntegralInt32 loc_4229128)
loc_4229128 = xor $fBitsInt32 loc_4228928 (shiftL $fBitsInt32 loc_4228928 (I# 5))
loc_4228928 = xor $fBitsInt32 loc_4228728 (shiftR $fBitsInt32 loc_4228728 (I# 17))
loc_4228728 = xor $fBitsInt32 loc_4228568 (shiftL $fBitsInt32 loc_4228568 (I# 13))
loc_4228568 = fromIntegral loc_4229392_arg_0 $fNumInt32 loc_4229392_arg_1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment