git.iko.soy/elk
on master help sign in
Expose docs errors so others can write error messages about them
772478fEvan Czaplicki
src/Elm/Docs.hs+3−2
compare with master
unifiedsplit
@@ -11,6 +11,7 @@ module Elm.Docs
11 , Binop(..)
11 , Binop(..)
12 , Binop.Associativity(..)
12 , Binop.Associativity(..)
13 , Binop.Precedence(..)
13 , Binop.Precedence(..)
14+ , Error(..)
14 , decoder
15 , decoder
15 , encode
16 , encode
16 )
17 )
@@ -108,7 +109,7 @@ encode (Module name comment unions aliases values binops) =
108
109
109
110
110data Error
111data Error
111− = BadAssociativity
112+ = BadAssociativity Text.Text
112 | BadName
113 | BadName
113 | BadType
114 | BadType
114
115
@@ -265,7 +266,7 @@ assocDecoder =
265 "left" -> D.succeed Binop.Left
266 "left" -> D.succeed Binop.Left
266 "non" -> D.succeed Binop.Non
267 "non" -> D.succeed Binop.Non
267 "right" -> D.succeed Binop.Right
268 "right" -> D.succeed Binop.Right
268− _ -> D.fail BadAssociativity
269+ _ -> D.fail (BadAssociativity txt)
269
270
270
271
271
272