From aca38f041aab97b3e3e920e1929238ce0edabc2a Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 5 Aug 2009 14:05:45 +0200 Subject: [PATCH] Slightly simplify getEntity. --- "c\316\273ash/CLasH/VHDL/Generate.hs" | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git "a/c\316\273ash/CLasH/VHDL/Generate.hs" "b/c\316\273ash/CLasH/VHDL/Generate.hs" index 591e940..aca4e95 100644 --- "a/c\316\273ash/CLasH/VHDL/Generate.hs" +++ "b/c\316\273ash/CLasH/VHDL/Generate.hs" @@ -51,9 +51,8 @@ getEntity fname = Utils.makeCached fname tsEntities $ do let (CoreSyn.Let binds (CoreSyn.Var res)) = letexpr res' <- mkMap res let vhdl_id = mkVHDLBasicId $ varToString fname ++ "_" ++ varToStringUniq fname - let ent_decl' = createEntityAST vhdl_id args' res' - let AST.EntityDec entity_id _ = ent_decl' - let signature = Entity entity_id args' res' ent_decl' + let ent_decl = createEntityAST vhdl_id args' res' + let signature = Entity vhdl_id args' res' ent_decl return signature where mkMap :: -- 2.30.2