viewProjectInfo :: ProjectInfo -> Html
viewProjectInfo info =
  let
    owner = Project.owner info
    repo  = Project.repository info
    repoUrl  = format "/{}/{}" [owner, repo]
  in
    p $ do
      a ! href (toValue repoUrl) $ do
        toHtml owner
        void "\x2009/\x2009" -- U+2009 is a thin space.
        toHtml repo

-- Renders the body html for the index page.
viewProjectInfo :: ProjectInfo -> Html
viewProjectInfo info =
  let
    owner = Project.owner info
    repo  = Project.repository info
    repoUrl  = format "/{}/{}" [owner, repo]
  in
    p $ do
      a ! href (toValue repoUrl) $ do
        toHtml owner
        void "\x2009/\x2009" -- U+2009 is a thin space.
        toHtml repo

-- Renders the body html for the index page.
viewProjectInfo info =
  let
    owner = Project.owner info
    repo  = Project.repository info
    repoUrl  = format "/{}/{}" [owner, repo]
  in
    p $ do
      a ! href (toValue repoUrl) $ do
        toHtml owner
        void "\x2009/\x2009" -- U+2009 is a thin space.
        toHtml repo

-- Renders the body html for the index page.