git.iko.soy/rowtype-yoga/purescript-native
on f835dcd help sign in
rowtype-yoga/purescript-native/psc/JSON.hs
69 lines 2.0 kB history raw
1-----------------------------------------------------------------------------
2--
3-- Module : Main
4-- Copyright : (c) 2013-15 Phil Freeman, (c) 2014-15 Gary Burgess
5-- License : MIT (http://opensource.org/licenses/MIT)
6--
7-- Maintainer : Phil Freeman <paf31@cantab.net>
8-- Stability : experimental
9-- Portability :
10--
11-- |
12--
13-----------------------------------------------------------------------------
15{-# LANGUAGE TemplateHaskell #-}
17module JSON where
19import Prelude ()
20import Prelude.Compat
22import qualified Data.Aeson.TH as A
24import qualified Language.PureScript as P
26data ErrorPosition = ErrorPosition
27 { startLine :: Int
28 , startColumn :: Int
29 , endLine :: Int
30 , endColumn :: Int
31 }
33data JSONError = JSONError
34 { position :: Maybe ErrorPosition
35 , message :: String
36 , errorCode :: String
37 , filename :: Maybe String
38 , moduleName :: Maybe String
39 }
41data JSONResult = JSONResult
42 { warnings :: [JSONError]
43 , errors :: [JSONError]
44 }
46$(A.deriveJSON A.defaultOptions ''ErrorPosition)
47$(A.deriveJSON A.defaultOptions ''JSONError)
48$(A.deriveJSON A.defaultOptions ''JSONResult)
50toJSONErrors :: Bool -> P.Level -> P.MultipleErrors -> [JSONError]
51toJSONErrors verbose level = map (toJSONError verbose level) . P.runMultipleErrors
53toJSONError :: Bool -> P.Level -> P.ErrorMessage -> JSONError
54toJSONError verbose level e =
55 JSONError (toErrorPosition <$> sspan)
56 (P.renderBox (P.prettyPrintSingleError' verbose level (P.stripModuleAndSpan e)))
57 (P.errorCode e)
58 (P.spanName <$> sspan)
59 (P.runModuleName <$> P.errorModule e)
60 where
61 sspan :: Maybe P.SourceSpan
62 sspan = P.errorSpan e
64 toErrorPosition :: P.SourceSpan -> ErrorPosition
65 toErrorPosition ss =
66 ErrorPosition (P.sourcePosLine (P.spanStart ss))
67 (P.sourcePosColumn (P.spanStart ss))
68 (P.sourcePosLine (P.spanEnd ss))
69 (P.sourcePosColumn (P.spanEnd ss))