@@ -99,7 +99,7 @@ runServeAsset rootPath = Snap.serveAsset "" rootPath . T.unpack . T.intercalate
9999
100100getConfigRoute :: Map Text ByteString -> Either Text URI
101101getConfigRoute configs = case Map.lookup "common/route" configs of
102− Just r ->
102+ Just r ->
103103 let stripped = T.strip (T.decodeUtf8 r)
104104 in case URI.mkURI stripped of
105105 Just route -> Right route
@@ -122,20 +122,20 @@ runWidget conf configs frontend validFullEncoder = do
122122 settings = setBeforeMainLoop beforeMainLoop (setPort port (setTimeout 3600 defaultSettings))
123123 -- Providing TLS here will also incidentally provide it to proxied requests to the backend.
124124 prepareRunner = case (uri ^? uriScheme . _Just . unRText) of
125− Just "https" -> do
125+ Just "https" -> do
126126 -- Generate a private key and self-signed certificate for TLS
127127 privateKey <- RSA.generateRSAKey' 2048 3
128128
129129 certRequest <- X509Request.newX509Req
130130 _ <- X509Request.setPublicKey certRequest privateKey
131− _ <- X509Request.signX509Req certRequest privateKey Nothing
131+ _ <- X509Request.signX509Req certRequest privateKey Nothing
132132
133133 cert <- X509.newX509 >>= X509Request.makeX509FromReq certRequest
134134 _ <- X509.setPublicKey cert privateKey
135135 now <- getCurrentTime
136136 _ <- X509.setNotBefore cert $ addUTCTime (-1) now
137137 _ <- X509.setNotAfter cert $ addUTCTime (365 * 24 * 60 * 60) now
138− _ <- X509.signX509 cert privateKey Nothing
138+ _ <- X509.signX509 cert privateKey Nothing
139139
140140 certByteString <- BSUTF8.fromString <$> PEM.writeX509 cert
141141 privateKeyByteString <- BSUTF8.fromString <$> PEM.writePKCS8PrivateKey privateKey Nothing