logCurrent :: Logger
logCurrent = withWindowSet $ return . Just . W.currentTag
logCurrent :: Logger
logCurrent = withWindowSet $ return . Just . W.currentTag
logCurrent = withWindowSet $ return . Just . W.currentTag