From be1089008a941da8afe23ca36f8209e0a08f58d4 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 12 Feb 2022 16:59:47 +0100
Subject: server: added (somewhat) sensible logging

it's not very sensible, but at least it exists
---
 server/Handlers.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'server/Handlers.hs')

diff --git a/server/Handlers.hs b/server/Handlers.hs
index d89d2c5..ce1eb9b 100644
--- a/server/Handlers.hs
+++ b/server/Handlers.hs
@@ -1,9 +1,10 @@
-{-# LANGUAGE DataKinds        #-}
-{-# LANGUAGE DeriveAnyClass   #-}
-{-# LANGUAGE DeriveGeneric    #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE LambdaCase       #-}
-{-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE DataKinds         #-}
+{-# LANGUAGE DeriveAnyClass    #-}
+{-# LANGUAGE DeriveGeneric     #-}
+{-# LANGUAGE FlexibleContexts  #-}
+{-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeApplications  #-}
 
 module Handlers (App, submitImpl,statusImpl,relintImpl,adminOverviewImpl) where
 
@@ -12,7 +13,7 @@ import           CheckDir               (recursiveCheckDir)
 import           Cli.Extras             (CliConfig, CliT, ProcessFailure,
                                          Severity (..), callProcessAndLogOutput,
                                          getCliConfig, prettyProcessFailure,
-                                         runCli)
+                                         putLog, runCli)
 import           Control.Concurrent     (MVar, ThreadId, forkIO, readMVar,
                                          withMVar)
 import           Control.Monad.Extra    (ifM)
-- 
cgit v1.2.3