From d204d4313da67575eb727ea3a3645828dc5f4473 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 2 Sep 2022 15:12:32 +0200
Subject: [PATCH] avs: fradrive refuses to start with an incomplete avs
 configuration

---
 src/Application.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index 475f04ec6..749937ffb 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -352,8 +352,7 @@ makeFoundation appSettings''@AppSettings{..} = do
           -- return Nothing
           error "AvsConfig is empty, i.e. invalid AVS configuration settings."          
           
-        Just avsConf -> do
-          -- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup!
+        Just avsConf -> do          
           manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing
           let avsServer = BaseUrl 
                             { baseUrlScheme = Https