From 2a4d1cc5a86b19c02066fbfc906b47bb43f68042 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Thu, 8 Apr 2021 00:42:18 -0400 Subject: [PATCH] more useful error message on bad stmt asgn --- src/Language/SystemVerilog/Parser/ParseDecl.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Language/SystemVerilog/Parser/ParseDecl.hs b/src/Language/SystemVerilog/Parser/ParseDecl.hs index c91a679..ca46637 100644 --- a/src/Language/SystemVerilog/Parser/ParseDecl.hs +++ b/src/Language/SystemVerilog/Parser/ParseDecl.hs @@ -261,7 +261,10 @@ parseDTsAsDeclOrStmt tokens = _ -> case takeLHS tokens of Just fullLHS -> Subroutine (lhsToExpr fullLHS) (Args [] []) _ -> error $ "invalid block item decl or stmt: " ++ show tokens - Just lhs = takeLHS $ init tokens + lhsToks = init tokens + lhs = case takeLHS lhsToks of + Nothing -> error $ "could not parse as LHS: " ++ show lhsToks + Just l -> l hasLeadingDecl = tokens /= l4 && tripLookahead l4 (_, l1) = takeDir tokens (_, l2) = takeLifetime l1