diff options
Diffstat (limited to 'server/HtmlOrphans.hs')
| -rw-r--r-- | server/HtmlOrphans.hs | 44 |
1 files changed, 23 insertions, 21 deletions
diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs index a8a355c..783c7c6 100644 --- a/server/HtmlOrphans.hs +++ b/server/HtmlOrphans.hs @@ -12,27 +12,29 @@ -- linter results as html module HtmlOrphans () where -import Universum - -import CheckDir (DirResult (..), MissingAsset (MissingAsset), - MissingDep (..), maximumLintLevel) -import CheckMap (MapResult (..)) -import Data.List.Extra (escapeJSON) -import qualified Data.Map as M -import qualified Data.Text as T -import Handlers (AdminOverview (..)) -import Lucid (HtmlT, ToHtml) -import Lucid.Base (ToHtml (toHtml)) -import Lucid.Html5 (a_, body_, button_, class_, code_, disabled_, - div_, em_, h1_, h2_, h3_, h4_, head_, href_, - html_, id_, li_, link_, main_, onclick_, p_, - rel_, script_, span_, src_, title_, type_, - ul_) -import Server (JobStatus (..), - Org (Org, orgBacklinkPrefix, orgContactMail, orgHowtoLink, orgSlug), - RemoteRef (RemoteRef, reponame, reporef, repourl), - prettySha, unState) -import Types (Hint (Hint), Level (..)) +import Universum hiding (view) + +import CheckDir (DirResult (..), + MissingAsset (MissingAsset), + MissingDep (..), maximumLintLevel) +import CheckMap (MapResult (..)) +import Data.List.Extra (escapeJSON) +import qualified Data.Map as M +import qualified Data.Text as T +import Handlers (AdminOverview (..)) +import Lens.Micro.Platform (view) +import Lucid (HtmlT, ToHtml) +import Lucid.Base (ToHtml (toHtml)) +import Lucid.Html5 (a_, body_, button_, class_, code_, + disabled_, div_, em_, h1_, h2_, h3_, h4_, + head_, href_, html_, id_, li_, link_, + main_, onclick_, p_, rel_, script_, span_, + src_, title_, type_, ul_) +import Server (JobStatus (..), + Org (Org, orgBacklinkPrefix, orgContactMail, orgHowtoLink, orgSlug), + RemoteRef (RemoteRef, reponame, reporef, repourl), + prettySha, unState) +import Types (Hint (Hint), Level (..)) import Fmt |