Result.hs

module Calculator.Prim.Result
    ( Result (..)
    ) where

--------------------------------------------------------------------------------

import           Calculator.Prim.Bindings (Bindings)

--------------------------------------------------------------------------------

data Result = NewBindings Bindings
            | Text String
            | Error String
            | Value Double
            | Action (IO ())

--------------------------------------------------------------------------------