Yesod Handler 내에서 예외를 어떻게 catch 할 수 있습니까?

Question

내가했을 때 :

foos <- (return $ map (encode .> cs .> jsonToFoo body) `catch` r400 

나는 다음과 같은 유형의 오류가 발생했습니다 :

/path/to/File.hs:47:78: error: 
    • Couldn't match type ‘(->) e0’ with ‘IO’ 
     arising from a functional dependency between: 
      constraint ‘MonadBase IO ((->) e0)’ arising from a use of ‘r400’ 
      instance ‘MonadBase ((->) r) ((->) r)’ at <no location info> 
    • In the second argument of ‘catch’, namely ‘r400’ 
     In a stmt of a 'do' block: 
     foos <- (return $ map (encode .> cs .> jsonToFoo) body) 
       `catch` r400 
     In the expression: 
     do { (body :: [Value]) <- requireJsonBody; 
      foos <- (return $ map (encode .> cs .> jsonToFoo) body) 
        `catch` r400; 
      .... } 

수있는 방법이 있다면, 그것은 liftIO 그것은하지 않습니다 포함?

Answer 1

난 그냥 catch에 대한 인수 누락되었습니다

foos <- (return $ map (encode .> cs .> jsonToFoo body) 
    `catch` (\(e :: SomeException) -> r400) 

너무 나쁜 그것은 유형의 오류를하지 더 분명 나를 위해이었다.