diff options
| author | Profpatsch <mail@profpatsch.de> | 2023-05-28T18·58+0200 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2023-07-13T23·03+0000 |
| commit | 8c4730c433ba01cb17aab2917d495d055c4f468e (patch) | |
| tree | 0817b780ac451b91109771876805e7c0c5a93404 /users/Profpatsch/arglib/ArglibNetencode.hs | |
| parent | ee21f725a38855e43fd8e82eb8c6c6fc99aca235 (diff) | |
chore(users/Profpatsch/*): more cabal maintenance r/6409
Change-Id: Ib1714abce2815873eb50dbeac088e812fa9098ab Reviewed-on: https://cl.tvl.fyi/c/depot/+/8686 Tested-by: BuildkiteCI Reviewed-by: Profpatsch <mail@profpatsch.de> Autosubmit: Profpatsch <mail@profpatsch.de>
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 -> |