diff options
Diffstat (limited to 'Role/User.hs')
-rw-r--r-- | Role/User.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Role/User.hs b/Role/User.hs index 51688af..be546cf 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -54,7 +54,7 @@ run os = fromMaybe (ExitFailure 101) <$> connect _ <- waitCatch p2 return exitstatus -developerMessages :: LogMessage -> Maybe (Message Entered) +developerMessages :: AnyMessage -> Maybe (Message Entered) developerMessages (Developer m) = Just m developerMessages (User _) = Nothing |