Adding abort message for VHDL + non default case

Author: andygill

netlist-to-vhdl/Language/Netlist/GenVHDL.hs

@@ -197,7 +197,7 @@ expr (ExprUnary op e) = lookupUnary op (expr e)
 expr (ExprBinary op a b) = lookupBinary op (expr a) (expr b)
 expr (ExprFunCall f args) = text f <> parens (cat $ punctuate comma $ map expr args)
 expr (ExprCond c t e) = expr t <+> text "when" <+> expr c <+> text "else" $$ expr e
-expr (ExprCase _ [] Nothing) = text "0"
+expr (ExprCase _ [] Nothing) = error "VHDL does not support non-defaulted ExprCase"
 expr (ExprCase _ [] (Just e)) = expr e
 expr (ExprCase e (([],_):alts) def) = expr (ExprCase e alts def)
 expr (ExprCase e ((p:ps,alt):alts) def) =