From 9986a621aff7cde115b4423e19e24fd85d1cea8b Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Feb 2008 15:42:32 +0000 Subject: [PATCH] Add a necessary [] error case --- compiler/parser/RdrHsSyn.lhs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 1a6b3fe..458ebf4 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -1021,6 +1021,7 @@ parseDImport (L loc entity) = parse0 comps parse2 _ _ [] = d'oh parse2 isStatic kind (('[':x):xs) = case x of + [] -> d'oh vs | last vs == ']' -> parse3 isStatic kind (init vs) xs _ -> d'oh parse2 isStatic kind xs = parse3 isStatic kind "" xs -- 1.7.10.4