Error.hs

module DDC.Build.Pipeline.Error
        (Error (..)) 
where
import DDC.Base.Pretty
import DDC.Data.SourcePos
import qualified DDC.Core.Salt          as Salt
import qualified DDC.Core.Load          as CL
import Control.DeepSeq


data Error
        -- | Error when loading a module.
        --   Blame it on the user.
        = forall err. Pretty err => ErrorLoad !err

        -- | Error when type checking a transformed module.
        --   Blame it on the compiler.
        | forall err. Pretty err => ErrorLint !err

        | forall err. Pretty (err (CL.AnTEC SourcePos Salt.Name))
        => ErrorSaltLoad  (CL.Error Salt.Name err)

        -- | Error converting the module to Salt to Sea.
        | forall err. Pretty err => ErrorSaltConvert !err

        -- | Error converting the module from Tetra to Salt.
        | forall err. Pretty err => ErrorTetraConvert !err

        -- | Error converting the module from Tetra to Salt.
        | forall err. Pretty err => ErrorFlowConvert  !err

        -- | Error when transforming core program.
        | forall err. Pretty err => ErrorCoreTransform !err



instance Pretty Error where
 ppr err
  = case err of
        ErrorLoad err'
         -> vcat [ text "Error loading module"
                 , indent 2 (ppr err') ]

        ErrorLint err'
         -> vcat [ text "Error in transformed module."
                 , indent 2 (ppr err') ]

        ErrorSaltLoad err'
         -> vcat [ text "Type error when loading Salt module."
                 , indent 2 (ppr err') ]

        ErrorSaltConvert err'
         -> vcat [ text "Fragment violation when converting Salt module to target code."
                 , indent 2 (ppr err') ]

        ErrorTetraConvert err'
         -> vcat [ text "Fragment violation when converting Tetra module to Salt module."
                 , indent 2 (ppr err') ]

        ErrorFlowConvert err'
         -> vcat [ text "Fragment violation when converting Flow module to Tetra module."
                 , indent 2 (ppr err') ]

        ErrorCoreTransform err'
         -> vcat [ text "Error transforming core program."
                 , indent 2 (ppr err') ]


instance NFData Error where
 rnf !_ = ()