This tests a case where a function was somehow discarding abilities.


```unison:error
structural ability Trivial where
  trivial : ()

-- This handler SHOULD leave any additional effects alone and unhandled
handleTrivial : '{e, Trivial} a -> {e} a
handleTrivial action =
  h : Request {Trivial} a -> a
  h = cases
    {trivial -> resume} -> handle !resume with h
    {a} -> a
  handle !action with h

testAction : '{Exception, IO, Trivial} ()
testAction = do
  printLine "hi!"
  trivial

wat : ()
wat =  handleTrivial testAction -- Somehow this completely forgets about Exception and IO

> handleTrivial testAction
```