@@ -11,6 +11,7 @@ module Elm.Docs
1111 , Binop(..)
1212 , Binop.Associativity(..)
1313 , Binop.Precedence(..)
14+ , Error(..)
1415 , decoder
1516 , encode
1617 )
@@ -108,7 +109,7 @@ encode (Module name comment unions aliases values binops) =
108109
109110
110111data Error
111− = BadAssociativity
112+ = BadAssociativity Text.Text
112113 | BadName
113114 | BadType
114115
@@ -265,7 +266,7 @@ assocDecoder =
265266 "left" -> D.succeed Binop.Left
266267 "non" -> D.succeed Binop.Non
267268 "right" -> D.succeed Binop.Right
268− _ -> D.fail BadAssociativity
269+ _ -> D.fail (BadAssociativity txt)
269270
270271
271272