git.iko.soy/elk
on 291ff79 help sign in
elk/compiler/src/Elm/Compiler.hs
102 lines 2.4 kB history raw
1{-# LANGUAGE OverloadedStrings #-}
2module Elm.Compiler
3 ( version
4 , Context(..)
5 , Compile.DocsFlag(..)
6 , Compile.Artifacts(..)
7 , compile
8 , Error.Error
9 , errorsToDoc
10 , errorsToJson
11 , Warning.Warning
12 )
13 where
16import qualified Data.ByteString as BS
17import qualified Data.Map as Map
18import qualified Data.Text as Text
19import qualified Text.PrettyPrint.ANSI.Leijen as P
21import qualified Compile
22import qualified Elm.Compiler.Module as M
23import qualified Elm.Compiler.Version
24import qualified Elm.Package as Pkg
25import qualified Json.Encode as Encode
26import qualified Reporting.Error as Error
27import qualified Reporting.Helpers as H
28import qualified Reporting.Render.Code as Code
29import qualified Reporting.Region as Region
30import qualified Reporting.Report as Report
31import qualified Reporting.Result as Result
32import qualified Reporting.Warning as Warning
36-- VERSION
39version :: Pkg.Version
40version =
41 Elm.Compiler.Version.version
45-- COMPILE
48data Context =
49 Context
50 { _package :: Pkg.Name
51 , _docsFlag :: Compile.DocsFlag
52 , _imports :: Map.Map M.Raw M.Canonical
53 , _interfaces :: M.Interfaces
54 }
57compile :: Context -> BS.ByteString -> ([Warning.Warning], Either [Error.Error] Compile.Artifacts)
58compile (Context pkg docsFlag importDict interfaces) source =
59 Result.run $ Compile.compile docsFlag pkg importDict interfaces source
63-- ERRORS TO DOC
66errorsToDoc :: FilePath -> Text.Text -> [Error.Error] -> H.Doc
67errorsToDoc filePath source errors =
68 let
69 reports =
70 concatMap (Error.toReports (Code.toSource source) Map.empty) errors
71 in
72 H.vcat $ map (Report.toDoc filePath) reports
76-- ERRORS TO JSON
79errorsToJson :: M.Raw -> FilePath -> Text.Text -> [Error.Error] -> Encode.Value
80errorsToJson moduleName filePath source errors =
81 let
82 reports =
83 concatMap (Error.toReports (Code.toSource source) Map.empty) errors
84 in
85 Encode.object
86 [ ("path", Encode.text (Text.pack filePath))
87 , ("name", Encode.name moduleName)
88 , ("errors", Encode.array (map reportToJson reports))
89 ]
92reportToJson :: Report.Report -> Encode.Value
93reportToJson (Report.Report title region _sgstns message) =
94 let
95 messageString =
96 P.displayS (P.renderPretty 1 80 message) ""
97 in
98 Encode.object
99 [ ("title", Encode.text (Text.pack title))
100 , ("region", Region.encode region)
101 , ("message", Encode.text (Text.pack messageString))
102 ]