diff options
author | stuebinm | 2022-02-12 16:59:47 +0100 |
---|---|---|
committer | stuebinm | 2022-03-19 19:26:31 +0100 |
commit | be1089008a941da8afe23ca36f8209e0a08f58d4 (patch) | |
tree | c156be6cd7b3460580bc9c3dae118c2f62381fbd /server/Handlers.hs | |
parent | 4fb5d083e4b629bad2842ed37b8e6560af61deae (diff) |
server: added (somewhat) sensible logging
it's not very sensible, but at least it exists
Diffstat (limited to '')
-rw-r--r-- | server/Handlers.hs | 15 |
1 files changed, 8 insertions, 7 deletions
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) |