Parse promise loopbacks with (<-) separator
commit55c291a801bc4d2cff60c0948940cfc7939db60a
authorEvan Czaplicki <info@elm-lang.org>
dateSat 7 Mar 2015, 16:25 (12 years ago)
parent9737063
src/AST/Declaration.hs+1−1
@@ -161,7 +161,7 @@ instance (Pretty expr, Pretty var, Var.ToString var) => Pretty (Wire expr var) w
161161 [ prettyWire "loopback" name ":" tipe
162162 , case maybeExpr of
163163 Just expr ->
164− prettyWire "loopback" name "=" expr
164+ prettyWire "loopback" name "<-" expr
165165 Nothing ->
166166 P.empty
167167 ]
src/Parse/Declaration.hs+1−1
@@ -74,7 +74,7 @@ loopback =
7474 do name <- wireBegining "loopback"
7575 choice
7676 [ wireEnding (D.LoopbackAnnotation name) hasType Type.expr
77− --, wireEnding (D.LoopbackDefinition name) equals Expr.expr
77+ , wireEnding (D.LoopbackDefinition name) (string "<-") Expr.expr
7878 ]
7979
8080