From 322d29e9564826fc9e7e3c743c38a0d5d353594e Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Tue, 17 Feb 2009 15:58:31 +0100
Subject: [PATCH] Always import IEEE.std_logic_1164 in the generated VHDL.

---
 VHDL.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/VHDL.hs b/VHDL.hs
index 5d57bb5..ad47364 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -26,8 +26,11 @@ getDesignFile = do
   -- session.
   funcs <- getFuncs
   let units = concat $ map getLibraryUnits funcs
+  let context = [
+        AST.Library $ mkVHDLId "IEEE",
+        AST.Use $ (AST.NSimple $ mkVHDLId "IEEE.std_logic_1164") AST.:.: AST.All]
   return $ AST.DesignFile 
-    []
+    context
     units
   
 -- | Create an entity for a given function
-- 
2.30.2