tsForLog :: LogMessage -> TimeStamp
tsForLog (Unknown _)         = error "Should not happen"
tsForLog :: LogMessage -> TimeStamp
tsForLog (Unknown _)         = error "Should not happen"
tsForLog (Unknown _)         = error "Should not happen"