searchForm :: Html -> Form ImgHost ImgHost (FormResult Text, Widget)
searchForm = renderTable $ areq (selectField defaultTags) "Tag " Nothing
searchForm :: Html -> Form ImgHost ImgHost (FormResult Text, Widget)
searchForm = renderTable $ areq (selectField defaultTags) "Tag " Nothing
searchForm = renderTable $ areq (selectField defaultTags) "Tag " Nothing