From 5843ef38792ebcf7421feb1324f6df1a1458dfcd Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sun, 20 Oct 2019 14:53:37 -0400 Subject: [PATCH] better error messaging for missing interfaces --- src/Convert/Interface.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Convert/Interface.hs b/src/Convert/Interface.hs index ba9ca66..3246b0c 100644 --- a/src/Convert/Interface.hs +++ b/src/Convert/Interface.hs @@ -145,7 +145,10 @@ convertDescription interfaces modules (Part attrs extern Module lifetime name po expandPortBinding _ other = [other] lookupModport :: Maybe Identifier -> Identifier -> Identifier -> Maybe [ModportDecl] - lookupModport instanceName interfaceName = (Map.!?) modportMap + lookupModport instanceName interfaceName = + if Map.member interfaceName interfaces + then (Map.!?) modportMap + else error $ "could not find interface " ++ show interfaceName where prefix = maybe "" (++ "_") instanceName interfaceItems =