diff --git a/Control/Logging.hs b/Control/Logging.hs
--- a/Control/Logging.hs
+++ b/Control/Logging.hs
@@ -1,5 +1,4 @@
 {-# OPTIONS_GHC -Wall -fno-warn-orphans #-}
-{-# LANGUAGE CPP #-}
 
 -- | Quick example of how to use this module:
 --
@@ -60,6 +59,7 @@
     , setLogLevel
     , setLogTimeFormat
     , setDebugSourceRegex
+    , LogLevel (..)
     ) where
 
 import Control.Exception.Lifted
@@ -73,9 +73,7 @@
 import Data.Text as T
 import Data.Text.Encoding as T
 import Data.Time
-#if !MIN_VERSION_time (1,5,0)
-import System.Locale (defaultTimeLocale)
-#endif
+import Data.Time.Locale.Compat (defaultTimeLocale)
 import Debug.Trace
 import Prelude hiding (log)
 import System.IO.Unsafe
diff --git a/logging.cabal b/logging.cabal
--- a/logging.cabal
+++ b/logging.cabal
@@ -1,5 +1,5 @@
 Name:                logging
-Version:             3.0.1
+Version:             3.0.2
 Synopsis:            Simplified logging in IO for application writers.
 License-file:        LICENSE
 License:             MIT
@@ -44,6 +44,7 @@
       , time                 >= 1.4
       , monad-control        >= 0.3.2.3
       , text                 >= 0.11.3.1
+      , time-locale-compat   >= 0.1.1.0
       , transformers         >= 0.3.0.0
       , lifted-base          >= 0.2.2.0
       , pcre-light           >= 0.4
diff --git a/test/main.hs b/test/main.hs
--- a/test/main.hs
+++ b/test/main.hs
@@ -11,8 +11,10 @@
 
 main :: IO ()
 main = hspec $ do
+
     describe "simple logging" $ do
-        it "logs output" $ (withStdoutLogging :: IO () -> IO ())  $ do
+
+        it "logs output" $ withStdoutLogging $ do
             log "Hello, world!"
             warnS "test-suite" "you've been warned"
             timedLog "Did a good thing" $ threadDelay 100000
@@ -20,6 +22,19 @@
                 threadDelay 100000 >> error "foo"
             _ <- tryAny $ errorL "Uh oh"
             return ()
+
+        it "supports setting log levels" $ do
+             setLogLevel LevelWarn
+
+             withStdoutLogging $ do
+                 debugS "Set LogLevel test" "This is an unshown debug message"
+                 logS "Set LogLevel test" "This is an unshown info message"
+                 warnS "Set LogLevel test" "This is a shown info message"
+                 _ <- tryAny $ errorSL "Set LogLevel test" "This is a shown error message"
+                 return ()
+
+             -- setting the log level back to debug so that following tests run
+             setLogLevel LevelDebug
 
         it "supports using debug classes" $ do
             setDebugSourceRegex "foo\\..*"