From 5ac9069fdc7348de9679ba5f1a9a9682ed4d5a08 Mon Sep 17 00:00:00 2001 From: Anon Ray Date: Tue, 14 May 2019 13:21:32 +0530 Subject: [PATCH] booleans from env are case insensitve (fix #2177) --- server/src-lib/Hasura/Server/Init.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/server/src-lib/Hasura/Server/Init.hs b/server/src-lib/Hasura/Server/Init.hs index 80d21b71eefbf..baaf55a52e42f 100644 --- a/server/src-lib/Hasura/Server/Init.hs +++ b/server/src-lib/Hasura/Server/Init.hs @@ -4,6 +4,7 @@ module Hasura.Server.Init where import qualified Database.PG.Query as Q import Options.Applicative +import Data.Char (toLower) import qualified Data.Aeson as J import qualified Data.HashSet as Set @@ -167,8 +168,8 @@ instance FromEnv LQ.RefetchInterval where parseStrAsBool :: String -> Either String Bool parseStrAsBool t - | t `elem` truthVals = Right True - | t `elem` falseVals = Right False + | map toLower t `elem` truthVals = Right True + | map toLower t `elem` falseVals = Right False | otherwise = Left errMsg where truthVals = ["true", "t", "yes", "y"]