diff --git a/src/Settings/Log.hs b/src/Settings/Log.hs
index 57742ad0b..412308666 100644
--- a/src/Settings/Log.hs
+++ b/src/Settings/Log.hs
@@ -15,9 +15,10 @@ import Utils.PathPiece
 
 
 data LogSettings = LogSettings
-  { logAll, logDetailed :: Bool
-  , logMinimumLevel :: LogLevel
-  , logDestination :: LogDestination
+  { logDetailed :: Bool               -- More details for incoming HTTP Requests?
+  , logAll :: Bool                    -- Show all LogLevels?
+  , logMinimumLevel :: LogLevel       -- logAll => logMiniumLevel == Info
+  , logDestination :: LogDestination  -- stderr, stdout (must both be lowercase) or a filename!
   , logSerializableTransactionRetryLimit :: Maybe Natural
   } deriving (Show, Read, Generic, Eq, Ord)