diff options
Diffstat (limited to 'users/Profpatsch/arglib/ArglibNetencode.hs')
| -rw-r--r-- | users/Profpatsch/arglib/ArglibNetencode.hs | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/users/Profpatsch/arglib/ArglibNetencode.hs b/users/Profpatsch/arglib/ArglibNetencode.hs index e4609d26abf5..4531151ca298 100644 --- a/users/Profpatsch/arglib/ArglibNetencode.hs +++ b/users/Profpatsch/arglib/ArglibNetencode.hs @@ -1,20 +1,17 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} module ArglibNetencode where -import qualified Data.Attoparsec.ByteString as Atto -import Data.Maybe (fromMaybe) +import Data.Attoparsec.ByteString qualified as Atto import ExecHelpers -import MyPrelude -import Netencode -import qualified System.Environment as Env -import qualified System.Posix.Env.ByteString as ByteEnv +import Label +import Netencode qualified +import PossehlAnalyticsPrelude +import System.Posix.Env.ByteString qualified as ByteEnv -arglibNetencode :: CurrentProgramName -> Maybe Text -> IO T +arglibNetencode :: CurrentProgramName -> Maybe (Label "arglibEnvvar" Text) -> IO Netencode.T arglibNetencode progName mEnvvar = do - let envvar = mEnvvar & fromMaybe "ARGLIB_NETENCODE" & textToBytesUtf8 + let envvar = mEnvvar <&> (.arglibEnvvar) & fromMaybe "ARGLIB_NETENCODE" & textToBytesUtf8 ByteEnv.getEnv envvar >>= \case Nothing -> dieUserError progName [fmt|could not read args, envvar {envvar} not set|] Just bytes -> |