From 97fda59c512f5813b6657f7c32bb8a537bcc7ea1 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Mon, 2 Sep 2019 22:35:36 -0400 Subject: [PATCH] convert needless patterns to concats --- src/Convert/Struct.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs index a51cd49..4348bc5 100644 --- a/src/Convert/Struct.hs +++ b/src/Convert/Struct.hs @@ -445,7 +445,9 @@ convertAsgn structs types (lhs, expr) = (Implicit Unspecified [], Bits (Right e')) where e' = snd $ convertSubExpr e convertSubExpr (Pattern items) = - (Implicit Unspecified [], Pattern items') + if all (== Nothing) $ map fst items' + then (Implicit Unspecified [], Concat $ map snd items') + else (Implicit Unspecified [], Pattern items') where items' = map mapItem items mapItem (mx, e) = (mx, snd $ convertSubExpr e)