From 3a765a9bb733059c5327e7fc02763e1138a2dde3 Mon Sep 17 00:00:00 2001 From: "Joseph C. Sible" Date: Mon, 30 Jan 2023 20:45:48 -0500 Subject: [PATCH] Get rid of an incomplete pattern match --- packages/backend-glr/src/Happy/Backend/GLR/ProduceCode.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/backend-glr/src/Happy/Backend/GLR/ProduceCode.lhs b/packages/backend-glr/src/Happy/Backend/GLR/ProduceCode.lhs index 7d56d51b..c4ee0c1c 100644 --- a/packages/backend-glr/src/Happy/Backend/GLR/ProduceCode.lhs +++ b/packages/backend-glr/src/Happy/Backend/GLR/ProduceCode.lhs @@ -202,7 +202,7 @@ Extract the string that comes before the module declaration... > . table_text > lib_content lib_text -> = let (pre,_drop_me : post) = break (== "fakeimport DATA") $ lines lib_text +> = let (pre,post) = break (== "fakeimport DATA") $ lines lib_text > in > unlines [ "{-# LANGUAGE CPP #-}" > , unlines @@ -222,7 +222,7 @@ Extract the string that comes before the module declaration... > , start ++ " = glr_parse " > , "use_filtering = " ++ show use_filtering > , "top_symbol = " ++ prefix ++ start_prod -> , unlines post +> , unlines (drop 1 post) > ] > start_prod = token_names g ! (let (_,_,i,_) = head $ starts g in i) > use_filtering = case options of (_, UseFiltering,_) -> True