Removed instance Exception ErrorResponse

yesod-core/Yesod/Handler.hs

@@ -463,8 +463,8 @@ runHandler handler mrender sroute tomr master sub upload log' =
   YesodApp $ \eh rr cts initSession -> do
     let toErrorHandler e =
             case fromException e of
-                Just x -> x
-                Nothing -> InternalError $ T.pack $ show e
+                Just (HCError x) -> x
+                _ -> InternalError $ T.pack $ show e
     istate <- liftIO $ I.newIORef GHState
         { ghsSession = initSession
         , ghsRBC = Nothing

yesod-core/Yesod/Internal.hs

@@ -59,7 +59,6 @@ data ErrorResponse =
     | PermissionDenied Text
     | BadMethod H.Method
     deriving (Show, Eq, Typeable)
-instance Exception ErrorResponse
 
 ----- header stuff
 -- | Headers to be added to a 'Result'.