myBlogHeader = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      string "Matt Chan" <> nbsp <> small (a ! href "/blog" $ string "Blog")
    h1 ! class_ "pull-right" $ do
      form ! attrs [ id "search"
                   , class_ "navbar-search"
                   , method "get"
                   , action "http://google.com/search"
                   ] $
        (do { p (do { input ! attrs [ type_ "hidden", name "q", value "site:themattchan.com"]
                     ; input ! attrs [ type_ "text", class_ "form-control", name "q", placeholder "search"]
                     })
            })
  div ! A.style "clear:both" $ ""
myBlogHeader = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      string "Matt Chan" <> nbsp <> small (a ! href "/blog" $ string "Blog")
    h1 ! class_ "pull-right" $ do
      form ! attrs [ id "search"
                   , class_ "navbar-search"
                   , method "get"
                   , action "http://google.com/search"
                   ] $
        (do { p (do { input ! attrs [ type_ "hidden", name "q", value "site:themattchan.com"]
                     ; input ! attrs [ type_ "text", class_ "form-control", name "q", placeholder "search"]
                     })
            })
  div ! A.style "clear:both" $ ""
myBlogHeader = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      string "Matt Chan" <> nbsp <> small (a ! href "/blog" $ string "Blog")
    h1 ! class_ "pull-right" $ do
      form ! attrs [ id "search"
                   , class_ "navbar-search"
                   , method "get"
                   , action "http://google.com/search"
                   ] $
        (do { p (do { input ! attrs [ type_ "hidden", name "q", value "site:themattchan.com"]
                     ; input ! attrs [ type_ "text", class_ "form-control", name "q", placeholder "search"]
                     })
            })
  div ! A.style "clear:both" $ ""