Skip to content

Commit 2366e1e

Browse files
committed
layout3TagSearch.hs: restore state
1 parent 924afa7 commit 2366e1e

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

gibbon-compiler/examples/layout_bench/layout3TagSearch.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,7 @@ import GenerateLayout3
44
type Text = Vector Char
55

66

7-
emphKeywordInTag :: Text -> Blog -> Blog
8-
{-# ANN emphKeywordInTag Layout3 #-}
7+
emphKeywordInTag :: Text -> Blog -> Blog
98
emphKeywordInTag keyword blogs = case blogs of
109
End -> End
1110
Layout3 tags rst content header id author date -> let present = searchBlogTags keyword tags

0 commit comments

Comments
 (0)