-- |

module Language.PureScript.Ide.Error

( IdeError(..)

) where

import Data.Aeson

import Language.PureScript.Errors.JSON

import Language.PureScript.Ide.Types (ModuleIdent)

import Protolude

import qualified Text.Parsec.Error as P

data IdeError

= GeneralError Text

| NotFound Text

| ModuleNotFound ModuleIdent

| ModuleFileNotFound ModuleIdent

| ParseError P.ParseError Text

| RebuildError [JSONError]

deriving (Show, Eq)

instance ToJSON IdeError where

toJSON (RebuildError errs) = object

[ "resultType" .= ("error" :: Text)

, "result" .= errs

]

toJSON err = object

[ "resultType" .= ("error" :: Text)

, "result" .= textError err

]

textError :: IdeError -> Text

textError (GeneralError msg) = msg

textError (NotFound ident) = "Symbol '" <> ident <> "' not found."

textError (ModuleNotFound ident) = "Module '" <> ident <> "' not found."

textError (ModuleFileNotFound ident) = "Extern file for module " <> ident <>" could not be found"

textError (ParseError parseError msg) = let escape = show

-- escape newlines and other special

-- chars so we can send the error

-- over the socket as a single line

in msg <> ": " <> escape parseError

textError (RebuildError err) = show err