diff options
| author | stuebinm | 2022-10-11 13:41:30 +0200 |
|---|---|---|
| committer | stuebinm | 2022-10-11 13:41:30 +0200 |
| commit | e70ceee20ea8f064264f724e8390288ef2cb1017 (patch) | |
| tree | 6ba63c66bd6a27e06637f8819b209b79d04f89ae /server | |
| parent | 4caded904c54d1cd85bf54239517e93650a404f5 (diff) | |
code formatter
Diffstat (limited to 'server')
| -rw-r--r-- | server/Handlers.hs | 4 | ||||
| -rw-r--r-- | server/HtmlOrphans.hs | 8 | ||||
| -rw-r--r-- | server/Server.hs | 2 |
3 files changed, 7 insertions, 7 deletions
diff --git a/server/Handlers.hs b/server/Handlers.hs index e45b210..8990f01 100644 --- a/server/Handlers.hs +++ b/server/Handlers.hs @@ -31,8 +31,8 @@ import Network.WebSockets (PendingConnection, acceptRequest, import Servant (Handler, err404, throwError) import Server (JobStatus (..), Org (orgUrl), RemoteRef (reponame), ServerState, - Sha1, getJobStatus, - unState, adjustedWebPath) + Sha1, adjustedWebPath, getJobStatus, + unState) import Worker (Job (Job)) diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs index 594d55f..e3887c6 100644 --- a/server/HtmlOrphans.hs +++ b/server/HtmlOrphans.hs @@ -26,10 +26,10 @@ 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_) + 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), diff --git a/server/Server.hs b/server/Server.hs index 84b4ae8..ac03a3b 100644 --- a/server/Server.hs +++ b/server/Server.hs @@ -54,11 +54,11 @@ import LintConfig (ConfigKind (..), LintConfig, import Servant (FromHttpApiData) import Servant.Client (BaseUrl, parseBaseUrl) import qualified Text.Show as TS +import qualified Toml as T import Toml (BiMap (BiMap), TomlBiMap, TomlBiMapError (ArbitraryError), TomlCodec, prettyTomlDecodeErrors, (.=)) -import qualified Toml as T import WithCli (HasArguments) -- | a reference in a remote git repository |