@@ -7,6 +7,7 @@ import Control.Monad.RWS
7import Control.Monad.Trans
7import Control.Monad.Trans
9%access public export
9%access public export
11interface Catchable (m : Type -> Type) t | m where
12interface Catchable (m : Type -> Type) t | m where
12 throw : t -> m a
13 throw : t -> m a