X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=TranslatorTypes.hs;h=d50881600a11b9ec83d8a6ec7b83baa609bc0139;hb=d848abec1bd08f24dd4d1c24ff694101c9ded360;hp=9a521b840057cbf114611731b17c03a784fb6a11;hpb=19b34adb91120fef34160874620f0d3c6b14e7b8;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/TranslatorTypes.hs b/TranslatorTypes.hs
index 9a521b8..d508816 100644
--- a/TranslatorTypes.hs
+++ b/TranslatorTypes.hs
@@ -25,7 +25,7 @@ data FuncData = FuncData {
   flatFunc     :: Maybe FlatFunction,
   funcEntity   :: Maybe Entity,
   funcArch     :: Maybe AST.ArchBody
-}
+} deriving (Show)
 
 data VHDLSession = VHDLSession {
   coreMod   :: HscTypes.CoreModule, -- The current module