From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 5 Aug 2009 12:05:45 +0000 (+0200)
Subject: Slightly simplify getEntity.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=aca38f041aab97b3e3e920e1929238ce0edabc2a;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Slightly simplify getEntity.
---

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 ::