Commit fa15f499 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Fixed bug w.r.t. infix patterns inside functional patterns

parent 615c9c57
......@@ -634,7 +634,7 @@ Function Patterns
> fp2Expr (InfixPattern t1 op t2) =
> let (t1', es1) = fp2Expr t1
> (t2', es2) = fp2Expr t2
> in (InfixApply t1' (InfixOp op) t2', es1 ++ es2)
> in (InfixApply t1' (InfixConstr op) t2', es1 ++ es2)
> fp2Expr (ParenPattern t) = first Paren (fp2Expr t)
> fp2Expr (TuplePattern r ts) =
> let (ts', ess) = unzip $ map fp2Expr ts
......
f (v@[] ++ v@(x:xs)) = x:xs ++ v
g (id ((:) x xs)) = x:xs
h (id (x:xs)) = x:xs
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment