src/Elm/Kernel.hs · elk

on c19392f help sign in

elk/src/Elm/Kernel.hs

31 lines 655 B history raw

1{-# OPTIONS_GHC -Wall #-}

2module Elm.Kernel

3 ( Kernel.Data(..)

4 , Kernel.Content

5 , parse

6 )

7 where

10import Data.Text (Text)

12import qualified AST.Kernel as Kernel (Data(..), Content(..))

13import qualified Elm.Compiler.Internals as I

14import qualified Parse.Helpers as Parse (run)

15import qualified Parse.Kernel as Kernel (parser)

16import qualified Reporting.Annotation as A

17import qualified Reporting.Error as Error

21-- PARSE KERNEL

24parse :: Text -> Either I.Error Kernel.Content

25parse sourceCode =

26 case Parse.run Kernel.parser sourceCode of

27 Right content ->

28 Right content

30 Left err ->

31 Left (I.Error (A.map Error.Syntax err))