From 88046cfef9b84647c507e215891896c79b66443e Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 6 Aug 2009 17:13:54 +0200 Subject: [PATCH] Filtering out state arguments is no longer needed. Since State types generate empty VHDL types now, they will be filtered out automatically. --- "c\316\273ash/CLasH/VHDL/Generate.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/c\316\273ash/CLasH/VHDL/Generate.hs" "b/c\316\273ash/CLasH/VHDL/Generate.hs" index aea5976..431f379 100644 --- "a/c\316\273ash/CLasH/VHDL/Generate.hs" +++ "b/c\316\273ash/CLasH/VHDL/Generate.hs" @@ -47,7 +47,7 @@ getEntity fname = Utils.makeCached fname tsEntities $ do -- Strip off lambda's, these will be arguments let (args, letexpr) = CoreSyn.collectBinders expr -- Generate ports for all non-state types - args' <- catMaybesM $ mapM mkMap (filter (not.hasStateType) args) + args' <- catMaybesM $ mapM mkMap args -- There must be a let at top level let (CoreSyn.Let binds (CoreSyn.Var res)) = letexpr -- TODO: Handle Nothing -- 2.30.2