getPythonPath :: T.MonadIO io => io Text
getPythonPath = S.shelly $ do
    maybP <- S.which "python3"
    case maybP of
        Nothing -> error "Error: python3 not found in path."
        Just p -> S.shelly $ S.toTextWarn p
getPythonPath :: T.MonadIO io => io Text
getPythonPath = S.shelly $ do
    maybP <- S.which "python3"
    case maybP of
        Nothing -> error "Error: python3 not found in path."
        Just p -> S.shelly $ S.toTextWarn p
getPythonPath = S.shelly $ do
    maybP <- S.which "python3"
    case maybP of
        Nothing -> error "Error: python3 not found in path."
        Just p -> S.shelly $ S.toTextWarn p