{-# OPTIONS_GHC -F -pgmF trhsx #-} module DarcsDen.Pages.User where import HSP import Data.Maybe (fromMaybe, isJust) import DarcsDen.Pages.Base import DarcsDen.Pages.HSPage ( HSPage ) import DarcsDen.Pages.Util ( repoForkSourceDescription ) import DarcsDen.State.Repository import DarcsDen.State.User import DarcsDen.State.Session import DarcsDen.Settings user :: User -> [Repository] -> HSPage user u repos sess = base (uName u) True <% uName u %>
nothing to see here, move along!
repositories rs =Forgot Password? |