cabal install threadscope error: The constructor `Event' should have 3 arguments, but has been given 2

Question

I'm trying to install threadscope. cabal install threadscope prints this error

C:\Users\ACER>cabal install threadscope
Warning: The install command is a part of the legacy v1 style of cabal usage.

Please switch to using either the new project style and the new-install
command or the legacy v1-install alias as new-style projects will become the
default in the next version of cabal-install. Please file a bug if you cannot
replicate a working v1- use case with the new-style commands.

For more information, see: https://wiki.haskell.org/Cabal/NewBuild

Resolving dependencies...
Starting     threadscope-0.2.2
Building     threadscope-0.2.2
Failed to install threadscope-0.2.2
Build log ( C:\Users\ACER\AppData\Roaming\cabal\logs\ghc-8.6.3\threadscope-0.2.2-E1YFgngIZQMCGlwJeEV9V4.log ):
Preprocessing executable 'threadscope' for threadscope-0.2.2..
Building executable 'threadscope' for threadscope-0.2.2..

<no location info>: warning: [-Wmissing-home-modules]
    These modules are needed for compilation but not listed in your .cabal file's other-modules:
        Paths_threadscope
[ 1 of 35] Compiling Events.EventDuration ( Events\EventDuration.hs, dist\build\threadscope\threadscope-tmp\Events\EventDuration.o )

Events\EventDuration.hs:89:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
   |
89 |   case spec event of
   |        ^^^^

Events\EventDuration.hs:92:32: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
   |
92 |      StartGC       -> gcStart (time event) events
   |                                ^^^^

Events\EventDuration.hs:98:36: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
   |
98 |     runDuration t = ThreadRun t s (time event) endTime
   |                                    ^^^^

Events\EventDuration.hs:105:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
105 |   case spec e of
    |        ^^^^

Events\EventDuration.hs:119:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
119 |   case spec event of
    |        ^^^^

Events\EventDuration.hs:127:14: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
127 |         t1 = time event
    |              ^^^^

Events\EventDuration.hs:132:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
132 |   case spec event of
    |        ^^^^

Events\EventDuration.hs:140:14: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
140 |         t1 = time event
    |              ^^^^

Events\EventDuration.hs:145:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
145 |   case spec event of
    |        ^^^^

Events\EventDuration.hs:153:14: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
153 |         t1 = time event
    |              ^^^^

Events\EventDuration.hs:158:8: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
158 |   case spec event of
    |        ^^^^

Events\EventDuration.hs:166:14: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
166 |         t1 = time event
    |              ^^^^

Events\EventDuration.hs:173:10: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
    |
173 |   = case spec e of
    |          ^^^^

Events\EventDuration.hs:174:37: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
174 |       StopThread{status=s} -> Just (time e, s)
    |                                     ^^^^
[ 2 of 35] Compiling Events.EventTree ( Events\EventTree.hs, dist\build\threadscope\threadscope-tmp\Events\EventTree.o )
Events\EventTree.hs:198:39: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
198 |   (s,e) = if null es then (0,0) else (time (head es), endTime)
    |                                       ^^^^

Events\EventTree.hs:226:17: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
226 |     EventSplit (time (head rhs))
    |                 ^^^^

Events\EventTree.hs:233:17: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
233 |     startTime = time (head es)
    |                 ^^^^

Events\EventTree.hs:260:9: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
    |
260 |     t = time e
    |         ^^^^
[ 3 of 35] Compiling Events.SparkStats ( Events\SparkStats.hs, dist\build\threadscope\threadscope-tmp\Events\SparkStats.o )
[ 4 of 35] Compiling Events.SparkTree ( Events\SparkTree.hs, dist\build\threadscope\threadscope-tmp\Events\SparkTree.o )
Events\SparkTree.hs:35:14: warning: [-Wdeprecations]
    In the use of `spec'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evSpec"
   |
35 |         case GHCEvents.spec event of
   |              ^^^^^^^^^^^^^^

Events\SparkTree.hs:37:27: warning: [-Wdeprecations]
    In the use of `time'
    (imported from GHC.RTS.Events, but defined in ghc-events-0.9.0:GHC.RTS.EventTypes):
    Deprecated: "The field is now called evTime"
   |
37 |             let endTime = GHCEvents.time event
   |                           ^^^^^^^^^^^^^^
[ 5 of 35] Compiling Events.HECs      ( Events\HECs.hs, dist\build\threadscope\threadscope-tmp\Events\HECs.o )

Events\HECs.hs:62:17: error:
    * The constructor `Event' should have 3 arguments, but has been given 2
    * In the pattern: Event ts (UserMarker mark)
      In the pattern: CapEvent _ (Event ts (UserMarker mark))
      In a stmt of a list comprehension:
        CapEvent _ (Event ts (UserMarker mark)) <- elems
                                                     (hecEventArray hecs)
   |
62 |   | CapEvent _ (Event ts (UserMarker mark)) <- elems (hecEventArray hecs) ]
   |                 ^^^^^^^^^^^^^^^^^^^^^^^^^^
cabal: Leaving directory 'C:\Users\ACER\AppData\Local\Temp\cabal-tmp-9320\threadscope-0.2.2'
cabal: Error: some packages failed to install:
threadscope-0.2.2-E1YFgngIZQMCGlwJeEV9V4 failed during the building phase. The
exception was:
ExitFailure 1