From 6823534f88656932f8ea21d3c0abfe75e76f3935 Mon Sep 17 00:00:00 2001 From: christiaanb Date: Wed, 23 Jun 2010 12:08:33 +0200 Subject: [PATCH] Aggregate types containing only stateelements is itself state. Not too sure though, so leave existing comments, and only comment out the original error message. --- clash/CLasH/VHDL/VHDLTools.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/clash/CLasH/VHDL/VHDLTools.hs b/clash/CLasH/VHDL/VHDLTools.hs index 723f08a..4e396ca 100644 --- a/clash/CLasH/VHDL/VHDLTools.hs +++ b/clash/CLasH/VHDL/VHDLTools.hs @@ -389,7 +389,7 @@ mkTyConHType tycon args = -- If we get here, then all of the argument types were state -- types (we check for enumeration types at the top). Not -- sure how to handle this, so error out for now. - (_, []) -> error $ "ADT with only State elements (or something like that?) Dunno how to handle this yet. Tycon: " ++ pprString tycon ++ " Arguments: " ++ pprString args + (_, []) -> return $ Right StateType --error $ "VHDLTools.mkTyConHType: ADT with only State elements (or something like that?) Dunno how to handle this yet. Tycon: " ++ pprString tycon ++ " Arguments: " ++ pprString args -- A full ADT (with multiple fields and one or multiple -- constructors). (_, elem_htys) -> do -- 2.30.2