summaryrefslogtreecommitdiff
path: root/server
diff options
context:
space:
mode:
authorstuebinm2022-10-11 13:41:30 +0200
committerstuebinm2022-10-11 13:41:30 +0200
commite70ceee20ea8f064264f724e8390288ef2cb1017 (patch)
tree6ba63c66bd6a27e06637f8819b209b79d04f89ae /server
parent4caded904c54d1cd85bf54239517e93650a404f5 (diff)
code formatter
Diffstat (limited to 'server')
-rw-r--r--server/Handlers.hs4
-rw-r--r--server/HtmlOrphans.hs8
-rw-r--r--server/Server.hs2
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