module Shared.Models.Body where

import Data.Maybe (Maybe)

type CompileRequest
  = { code ∷ String }

type CompileResult
  = { result ∷ PursResult }

type RunResult
  = { code ∷ Maybe Int, stdout ∷ String, stderr ∷ String }

type Suggestion
  = { replaceRange :: Position , replacement :: String }

type Span
  = { end :: Array Int
    , name :: String
    , start :: Array Int
    }

type Position
  = { endColumn :: Int
    , endLine :: Int
    , startColumn :: Int
    , startLine :: Int
    }

type ErrorOrWarning
  = { allSpans :: Array Span
    , errorCode :: String
    , errorLink :: String
    , filename :: String
    , message :: String
    , moduleName :: Maybe String
    , position :: Position
    , suggestion :: Maybe Suggestion
    }

type PursResult
  = { errors :: Array ErrorOrWarning
    , warnings :: Array ErrorOrWarning
    }