Merge remote-tracking branch 'origin/adinapoli/improve-error-at-startup' into dev

src/Gargantext/API.hs

@@ -92,12 +92,13 @@ startGargantext mode port sf@(SettingsFile settingsFile) = withLoggerHoisted mod
 
   where runDbCheck env = do
           r <- runExceptT (runReaderT DB.dbCheck env) `catch`
-            (\(_ :: SomeException) -> pure $ Right False)
+            (\(err :: SomeException) -> pure $ Left err)
           case r of
             Right True  -> pure ()
-            _ -> panicTrace $
-              "You must run 'gargantext-init " <> pack settingsFile <>
+            Right False -> panicTrace $
+              "You must run 'gargantext-cli init " <> pack settingsFile <>
               "' before running gargantext-server (only the first time)."
+            Left err -> panicTrace $ "Unexpected exception:" <> show err
         oneHour = Clock.fromNanoSecs 3600_000_000_000
 
 portRouteInfo :: NotificationsConfig -> PortNumber -> MicroServicesProxyStatus -> IO ()