Как справиться с «паникой: невозможное» произошло »и продолжаем в Haskell

У меня есть следующий код, который использует GHC API для загрузки модулей и получения типа выражения:

typeObjects :: [String] -> [String] -> IO [Type]
typeObjects modules objects = do
  defaultErrorHandler defaultDynFlags $ do
    runGhc (Just libdir) $ do
      dflags <- getSessionDynFlags
      setSessionDynFlags dflags
      targets <- mapM ((flip guessTarget) Nothing) modules
      setTargets targets
      result <- load LoadAllTargets
      case result of
          Failed -> error "Compilation failed"
          Succeeded -> do
            m <- mapM (((flip findModule) Nothing) . mkModuleName) modules
            setContext m []
            values <- mapM exprType objects
            return values

Если выражения не проверяют тип, вся программа вылетает с ошибкой:

TestDynamicLoad: panic! (the 'impossible' happened)
   (GHC version 7.0.3.20110330 for x86_64-unknown-linux):
    Couldn't match expected type `GHC.Types.Int'
            with actual type `[GHC.Types.Char]'

Как мне сделать так, чтобы программа не вылетела из строя? Я просто хочу знать, какой тип выражений был успешно проверен, а какой нет.