   , CPLE_ObjectNull      as ObjectNull
   } deriving (Eq, Bounded, Show) #}
 
+instance NFData ErrorNum where
+  rnf e = seq e ()
 
 checkGDALCall
   :: Exception e

#include "errorhandler.h"

{# enum CPLErr as ErrorType {upcaseFirstLetter} deriving (Eq, Show) #}


data GDALException

{# context lib = "gdal" prefix = "CPL" #}

import Control.Monad (void, liftM)
import Control.DeepSeq (NFData(..))
import Control.Monad.Catch (MonadThrow(throwM))
import Control.Exception (
    Exception (..)
