Skip to content

fix: exit non-zero when the SDK key is missing or initialization fails #26

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
kinyoklion merged 1 commit into from
Sep 16, 2026
Merged

fix: exit non-zero when the SDK key is missing or initialization fails #26

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
17 changes: 11 additions & 6 deletions app/Main.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,13 +3,14 @@
module Main where

import Control.Concurrent (threadDelay)
import Control.Monad (forever)
import Data.Text (Text, pack)
import Data.Text (pack)
import Data.Function ((&))

import qualified LaunchDarkly.Server as LD
import System.Exit (exitFailure)
import System.IO (hPutStrLn, stderr)
import System.Timeout (timeout)
import Text.Printf (printf, hPrintf)
import Text.Printf (printf)
import System.Environment (lookupEnv)
import Data.Maybe (isJust)

Expand Down Expand Up @@ -58,6 +59,9 @@ evaluateLoop client featureFlagKey context lastValue ciMode = do
if ciMode then pure () else threadDelay (1 * 1_000_000) >> evaluateLoop client featureFlagKey context (Just value) ciMode

evaluate :: Maybe String -> Maybe String -> Bool -> IO ()
evaluate Nothing _ _ = do
hPutStrLn stderr "*** You must define LAUNCHDARKLY_SDK_KEY before running this script"
exitFailure
evaluate (Just sdkKey) Nothing ciMode = do evaluate (Just sdkKey) (Just "sample-feature") ciMode
evaluate (Just sdkKey) (Just featureFlagKey) ciMode = do
-- Set up the evaluation context. This context should appear on your
Expand All @@ -68,10 +72,11 @@ evaluate (Just sdkKey) (Just featureFlagKey) ciMode = do

case initialized of
Just True -> do
print "*** SDK successfully initialized!"
putStrLn "*** SDK successfully initialized!"
evaluateLoop client featureFlagKey context Nothing ciMode
_notInitialized -> putStrLn "*** SDK failed to initialize. Please check your internet connection and SDK credential for any typo."
evaluate _ _ _ = putStrLn "*** You must define LAUNCHDARKLY_SDK_KEY and LAUNCHDARKLY_FLAG_KEY before running this script"
_notInitialized -> do
hPutStrLn stderr "*** SDK failed to initialize. Please check your internet connection and SDK credential for any typo."
exitFailure

main :: IO ()
main = do
Expand Down
Loading