Skip to content

Commit

Permalink
layout3TagSearch.hs: restore state
Browse files Browse the repository at this point in the history
  • Loading branch information
vidsinghal committed Sep 13, 2023
1 parent 924afa7 commit 2366e1e
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions gibbon-compiler/examples/layout_bench/layout3TagSearch.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 2366e1e

Please sign in to comment.