From: Matthijs Kooijman 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