module Web.Page(searchLink, header, footer, welcome) where import General.Web import General.Util searchLink :: String -> URL searchLink x = "?hoogle=" ++% x header resources query = ["" ,"" ," " ," " ," " ++ (query ++? " - ") ++ "Hoogle" ," " ," " ," " ," " ," " ," " ," " ," " ] ++ links ++ search resources query ++ ["

"] links = ["

" ," " ," " ," Manual |" ," haskell.org" ,"

" ] search resources query = ["" ] footer = ["

" ," " ," " ,"" ] welcome = ["

Welcome to Hoogle

" ,"

" ," Hoogle is a Haskell API search engine, which allows you to search many standard Haskell libraries" ," by either function name, or by approximate type signature." ,"

" ,"

" ," Example searches:
" ," " ++ search "map" ," " ++ search "(a -> b) -> [a] -> [b]" ," " ++ search "Ord a => [a] -> [a]" ," " ++ search "Data.Map.insert" ,"
Enter your own search at the top of the page." ,"

" ,"

" ," The Hoogle manual contains more details," ," including further details on search queries, how to install Hoogle as a command line application" ," and how to integrate Hoogle with Firefox/Emacs/Vim etc." ,"

" ,"

" ," I am very interested in any feedback you may have. Please " ," email me, or add an entry to my" ," bug tracker." ,"

" ] where search x = "" ++& x ++ "
"