Loading git-hooks/pre-commit 0 → 100755 +4 −0 Original line number Diff line number Diff line #!/bin/sh set -e stack build --test stack exec hlint -- -g || true rd-api/RD/Server/Cli/Main.hs +1 −0 Original line number Diff line number Diff line Loading @@ -35,6 +35,7 @@ parseIntEnv key env = [(i, [])] -> Right $ Just i _ -> Left $ "failed to parse " <> T.pack key <> " from env variable: " <> T.pack s {-# ANN updateRDConfigFromEnvPure ("HLint: ignore Use =<<" :: String) #-} updateRDConfigFromEnvPure :: [(String, String)] -> RDConfig -> Either T.Text RDConfig updateRDConfigFromEnvPure env c0 = (\c -> Right $ maybe c (\h -> c { host=h }) (lookup "HOST" env)) c0 >>= Loading Loading
git-hooks/pre-commit 0 → 100755 +4 −0 Original line number Diff line number Diff line #!/bin/sh set -e stack build --test stack exec hlint -- -g || true
rd-api/RD/Server/Cli/Main.hs +1 −0 Original line number Diff line number Diff line Loading @@ -35,6 +35,7 @@ parseIntEnv key env = [(i, [])] -> Right $ Just i _ -> Left $ "failed to parse " <> T.pack key <> " from env variable: " <> T.pack s {-# ANN updateRDConfigFromEnvPure ("HLint: ignore Use =<<" :: String) #-} updateRDConfigFromEnvPure :: [(String, String)] -> RDConfig -> Either T.Text RDConfig updateRDConfigFromEnvPure env c0 = (\c -> Right $ maybe c (\h -> c { host=h }) (lookup "HOST" env)) c0 >>= Loading