Export BasicAuth constructor in Servant.Server

2016-01-08 12:10:36 +01:00 · 2016-01-08 12:10:36 +01:00 · 3db091db57
commit 3db091db57
parent 4add914251
1 changed files with 1 additions and 1 deletions
--- a/servant-server/src/Servant/Server.hs
+++ b/servant-server/src/Servant/Server.hs
@ -45,7 +45,7 @@ module Servant.Server
  , mkAuthHandler

  -- * Basic Authentication
-  , BasicAuthCheck(unBasicAuthCheck)
+  , BasicAuthCheck(BasicAuthCheck, unBasicAuthCheck)
  , BasicAuthResult(..)

    -- * Default error type