1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
-- generated file, do not modify!
-- 2016-11-15T20:33:23.520088000000Z
module LambdaCube.TypeInfo where
import Prelude
import Data.Generic
import Data.Either (Either(..))
import Data.Maybe (Maybe(..))
import Data.StrMap (StrMap(..))
import Data.Map (Map(..))
import Data.List (List(..))
import LambdaCube.LinearBase
import Data.Argonaut.Encode.Combinators ((~>), (:=))
import Data.Argonaut.Decode.Combinators ((.?))
import Data.Argonaut.Core (jsonEmptyObject)
import Data.Argonaut.Printer (printJson)
import Data.Argonaut.Encode (class EncodeJson, encodeJson)
import Data.Argonaut.Decode (class DecodeJson, decodeJson)
import LambdaCube.IR
data Range
= Range
{ startLine :: Int
, startColumn :: Int
, endLine :: Int
, endColumn :: Int
}
data TypeInfo
= TypeInfo
{ range :: Range
, text :: String
}
data WarningInfo
= WarningInfo
{ wRange :: Range
, wText :: String
}
data ErrorInfo
= ErrorInfo
{ eRange :: Range
, eText :: String
}
data CompileResult
= CompileError String (Array TypeInfo) (Array WarningInfo) (Array ErrorInfo)
| Compiled String String Pipeline (Array TypeInfo) (Array WarningInfo)
instance encodeJsonRange :: EncodeJson Range where
encodeJson v = case v of
Range r ->
"tag" := "Range" ~>
"startLine" := r.startLine ~>
"startColumn" := r.startColumn ~>
"endLine" := r.endLine ~>
"endColumn" := r.endColumn ~>
jsonEmptyObject
instance decodeJsonRange :: DecodeJson Range where
decodeJson json = do
obj <- decodeJson json
tag <- obj .? "tag"
case tag of
"Range" -> do
startLine <- obj .? "startLine"
startColumn <- obj .? "startColumn"
endLine <- obj .? "endLine"
endColumn <- obj .? "endColumn"
pure $ Range
{ startLine:startLine
, startColumn:startColumn
, endLine:endLine
, endColumn:endColumn
}
_ -> Left ("decodeJsonRange - unknown tag: " <> tag)
instance encodeJsonTypeInfo :: EncodeJson TypeInfo where
encodeJson v = case v of
TypeInfo r ->
"tag" := "TypeInfo" ~>
"range" := r.range ~>
"text" := r.text ~>
jsonEmptyObject
instance decodeJsonTypeInfo :: DecodeJson TypeInfo where
decodeJson json = do
obj <- decodeJson json
tag <- obj .? "tag"
case tag of
"TypeInfo" -> do
range <- obj .? "range"
text <- obj .? "text"
pure $ TypeInfo
{ range:range
, text:text
}
_ -> Left ("decodeJsonTypeInfo - unknown tag: " <> tag)
instance encodeJsonWarningInfo :: EncodeJson WarningInfo where
encodeJson v = case v of
WarningInfo r ->
"tag" := "WarningInfo" ~>
"wRange" := r.wRange ~>
"wText" := r.wText ~>
jsonEmptyObject
instance decodeJsonWarningInfo :: DecodeJson WarningInfo where
decodeJson json = do
obj <- decodeJson json
tag <- obj .? "tag"
case tag of
"WarningInfo" -> do
wRange <- obj .? "wRange"
wText <- obj .? "wText"
pure $ WarningInfo
{ wRange:wRange
, wText:wText
}
_ -> Left ("decodeJsonWarningInfo - unknown tag: " <> tag)
instance encodeJsonErrorInfo :: EncodeJson ErrorInfo where
encodeJson v = case v of
ErrorInfo r ->
"tag" := "ErrorInfo" ~>
"eRange" := r.eRange ~>
"eText" := r.eText ~>
jsonEmptyObject
instance decodeJsonErrorInfo :: DecodeJson ErrorInfo where
decodeJson json = do
obj <- decodeJson json
tag <- obj .? "tag"
case tag of
"ErrorInfo" -> do
eRange <- obj .? "eRange"
eText <- obj .? "eText"
pure $ ErrorInfo
{ eRange:eRange
, eText:eText
}
_ -> Left ("decodeJsonErrorInfo - unknown tag: " <> tag)
instance encodeJsonCompileResult :: EncodeJson CompileResult where
encodeJson v = case v of
CompileError arg0 arg1 arg2 arg3 -> "tag" := "CompileError" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> "arg2" := arg2 ~> "arg3" := arg3 ~> jsonEmptyObject
Compiled arg0 arg1 arg2 arg3 arg4 -> "tag" := "Compiled" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> "arg2" := arg2 ~> "arg3" := arg3 ~> "arg4" := arg4 ~> jsonEmptyObject
instance decodeJsonCompileResult :: DecodeJson CompileResult where
decodeJson json = do
obj <- decodeJson json
tag <- obj .? "tag"
case tag of
"CompileError" -> CompileError <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" <*> obj .? "arg3"
"Compiled" -> Compiled <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2" <*> obj .? "arg3" <*> obj .? "arg4"
_ -> Left ("decodeJsonCompileResult - unknown tag: " <> tag)
|