diff --git a/gibbon-compiler/examples/layout_bench/layout3TagSearch.hs b/gibbon-compiler/examples/layout_bench/layout3TagSearch.hs index b83c154a0..00e11b992 100644 --- a/gibbon-compiler/examples/layout_bench/layout3TagSearch.hs +++ b/gibbon-compiler/examples/layout_bench/layout3TagSearch.hs @@ -4,8 +4,7 @@ import GenerateLayout3 type Text = Vector Char -emphKeywordInTag :: Text -> Blog -> Blog -{-# ANN emphKeywordInTag Layout3 #-} +emphKeywordInTag :: Text -> Blog -> Blog emphKeywordInTag keyword blogs = case blogs of End -> End Layout3 tags rst content header id author date -> let present = searchBlogTags keyword tags