We could lift the case one level up, i.e.
```.haskell
case reverse events of
   s@(Start _ _):_ -> Just s
   _ -> Nothing
```