From: christiaanb <christiaan.baaij@gmail.com>
Date: Mon, 21 Jun 2010 15:07:15 +0000 (+0200)
Subject: Enum literals are now correctly translated to numbers
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=699b4f25f903ae9fa7deacf2eeb6204403178de9;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Enum literals are now correctly translated to numbers
---

diff --git a/clash/CLasH/VHDL/VHDLTools.hs b/clash/CLasH/VHDL/VHDLTools.hs
index 8f282b4..3dcd951 100644
--- a/clash/CLasH/VHDL/VHDLTools.hs
+++ b/clash/CLasH/VHDL/VHDLTools.hs
@@ -192,7 +192,7 @@ dataconToVHDLExpr dc = do
           let existing_ty = Monad.liftM (fmap fst) $ Map.lookup htype typemap
           case existing_ty of
             Just ty -> do
-              let lit    = idToVHDLExpr $ mkVHDLExtId $ Name.getOccString dcname
+              let lit    = AST.PrimLit $ show $ getConstructorIndex htype $ Name.getOccString dcname
               return lit
             Nothing -> error $ "\nVHDLTools.dataconToVHDLExpr: Trying to make value for non-representable DataCon: " ++ pprString dc
     -- Error when constructing htype