From 4cab3f3e4f50032c79fc7dd28a5545e99c8c64d7 Mon Sep 17 00:00:00 2001 From: christiaanb Date: Thu, 17 Jun 2010 16:19:12 +0200 Subject: [PATCH] getFieldLabels has better error messages --- clash/CLasH/VHDL/VHDLTools.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/clash/CLasH/VHDL/VHDLTools.hs b/clash/CLasH/VHDL/VHDLTools.hs index 8cb2f5e..ab3360b 100644 --- a/clash/CLasH/VHDL/VHDLTools.hs +++ b/clash/CLasH/VHDL/VHDLTools.hs @@ -571,8 +571,8 @@ getFields :: getFields htype dc_i = case htype of (AggrType name _ fieldss) | dc_i >= 0 && dc_i < length fieldss -> fieldss!!dc_i - | otherwise -> error $ "Invalid constructor index: " ++ (show dc_i) ++ ". No such constructor in HType: " ++ (show htype) - _ -> error $ "Can't get fields from non-aggregate HType: " ++ show htype + | otherwise -> error $ "VHDLTool.getFields: Invalid constructor index: " ++ (show dc_i) ++ ". No such constructor in HType: " ++ (show htype) + _ -> error $ "VHDLTool.getFields: Can't get fields from non-aggregate HType: " ++ show htype -- Finds the field labels for an aggregation type, as VHDLIds. getFieldLabels :: -- 2.30.2