From 24d17d05fa8ba004476d91d2b49a85c0414b27ab Mon Sep 17 00:00:00 2001
From: Andrew Thompson <andrew@hijacked.us>
Date: Fri, 21 Dec 2012 11:35:48 -0500
Subject: [PATCH] Fix for loglevel none in status

---
 src/lager.erl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/lager.erl b/src/lager.erl
index 6fb1191..2f67fdc 100644
--- a/src/lager.erl
+++ b/src/lager.erl
@@ -210,7 +210,10 @@ status() ->
         [begin
                     LevelName = case Level of
                         {mask, Mask} ->
-                            hd(lager_util:mask_to_levels(Mask));
+                            case lager_util:mask_to_levels(Mask) of
+                                [] -> none;
+                                Levels -> hd(Levels)
+                            end;
                         Num ->
                             lager_util:num_to_level(Num)
                     end,
@@ -243,7 +246,10 @@ set_loglevel(Handler, Ident, Level) when is_atom(Level) ->
 get_loglevel(Handler) ->
     case gen_event:call(lager_event, Handler, get_loglevel, infinity) of
         {mask, Mask} ->
-            erlang:hd(lager_util:mask_to_levels(Mask));
+            case lager_util:mask_to_levels(Mask) of
+                [] -> none;
+                Levels -> hd(Levels)
+            end;
         X when is_integer(X) ->
             lager_util:num_to_level(X);
         Y -> Y