language-elm-0.1.0.0: src/Elm/GenError.hs

{-# OPTIONS_HADDOCK prune #-}
{-# OPTIONS_GHC -Wall -Werror #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE Safe              #-}
{-# LANGUAGE Strict            #-}

module Elm.GenError where

import           Protolude

import           Data.String

data GenError
    = WarningList [String]
    | Error String
    deriving (Eq, Show)

instance Monoid GenError where
    mappend (Error str) _                   = Error str
    mappend _ (Error str)                   = Error str
    mappend (WarningList a) (WarningList b) = WarningList $ a ++ b
    mempty = WarningList []