Start support on initial state. Substates currently break

[matthijs/master-project/cλash.git] / cλash / CLasH / VHDL / VHDLTools.hs

diff --git a/cλash/CLasH/VHDL/VHDLTools.hs b/cλash/CLasH/VHDL/VHDLTools.hs
index edca0c306325bea654e9eaa86b71ba9afdeea112..1378376f0f034880a4ccba733b649acb79b09420 100644 (file)
--- a/cλash/CLasH/VHDL/VHDLTools.hs
+++ b/cλash/CLasH/VHDL/VHDLTools.hs
@@ -402,7 +402,7 @@ mk_tycon_ty ty tycon args =
           -- Throw away all empty members
           case Maybe.catMaybes elem_tys' of
             [] -> -- No non-empty members
-              return $ Right Nothing
+              return $ Right Nothing           
             elem_tys -> do
               let elems = zipWith AST.ElementDec recordlabels elem_tys
               -- For a single construct datatype, build a record with one field for