From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Wed, 3 Mar 2010 09:51:54 +0000 (+0100)
Subject: Update module name in error message.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=51a875c4042e808b03c817057256ef3e4553c47c;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Update module name in error message.
---

diff --git "a/c\316\273ash/CLasH/VHDL/VHDLTools.hs" "b/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
index 8b963f5..263d364 100644
--- "a/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
+++ "b/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
@@ -533,7 +533,7 @@ getFieldLabels ty = do
   case Map.lookup htype types of
     Just (Just (_, Just (Left (AST.TDR (AST.RecordTypeDef elems))))) -> return $ map (\(AST.ElementDec id _) -> id) elems
     Just Nothing -> return [] -- The type is empty
-    _ -> error $ "\nVHDL.getFieldLabels: Type not found or not a record type? This should not happen! Type: " ++ (show htype)
+    _ -> error $ "\nVHDLTools.getFieldLabels: Type not found or not a record type? This should not happen! Type: " ++ (show htype)
     
 mktydecl :: (AST.VHDLId, Maybe (Either AST.TypeDef AST.SubtypeIn)) -> Maybe AST.PackageDecItem
 mytydecl (_, Nothing) = Nothing