{-# LINE 1 "src/Foreign/R/Error.hsc" #-}
-- |
-- Copyright: (C) 2013 Amgen, Inc.
--
-- Exception type wrapping errors thrown by the R runtime.

{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-}
module Foreign.R.Error
  ( RError(..)
  ) where

import Control.Exception
import Data.Typeable

data RError = RError String
      deriving ( Typeable )

instance Show RError where
  show :: RError -> String
show (RError String
s)      = String
"R Runtime Error: " forall a. [a] -> [a] -> [a]
++ String
s

instance Exception RError