We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 924afa7 commit 2366e1eCopy full SHA for 2366e1e
gibbon-compiler/examples/layout_bench/layout3TagSearch.hs
@@ -4,8 +4,7 @@ import GenerateLayout3
4
type Text = Vector Char
5
6
7
-emphKeywordInTag :: Text -> Blog -> Blog
8
-{-# ANN emphKeywordInTag Layout3 #-}
+emphKeywordInTag :: Text -> Blog -> Blog
9
emphKeywordInTag keyword blogs = case blogs of
10
End -> End
11
Layout3 tags rst content header id author date -> let present = searchBlogTags keyword tags
0 commit comments