gssapi-wai 0.1.2.0 → 0.1.2.1

raw patch · 2 files changed

+6/−4 lines, 2 filesdep ~gssapiPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gssapi

API changes (from Hackage documentation)

Files

• gssapi-wai.cabal +3/−2
• src/Network/Wai/Middleware/SpnegoAuth.hs +3/−2

@@ -1,5 +1,5 @@ name:                gssapi-wai-version:             0.1.2.0+version:             0.1.2.1 synopsis:            WAI Middleware for SPNEGO authentiaction description:         Basic WAI Middleware allows both SPNEGO and failback to Kerberos                      username/password authentication.@@ -22,7 +22,8 @@ library   exposed-modules:     Network.Wai.Middleware.SpnegoAuth -  build-depends:       base >=4.8 && <4.10, gssapi, wai, wai-extra,+  build-depends:       base >=4.8 && <4.10,+                       gssapi >= 0.2.0, wai, wai-extra,                        vault, base64-bytestring, bytestring, case-insensitive,                        http-types   default-language:    Haskell2010

@@ -88,8 +88,9 @@ defaultAuthError logerr settings (Just (Left (KrbException code err))) _ respond = do     logerr $ "Kerberos error code: " <> show code <> ", error: " <> show err     defaultAuthResponse settings respond-defaultAuthError logerr settings (Just (Right (GssException code err))) _ respond = do-    logerr $ "GSSAPI error code: " <> show code <> ", error: " <> show err+defaultAuthError logerr settings (Just (Right (GssException major majorTxt minor minorTxt))) _ respond = do+    logerr $ "GSSAPI major code: " <> show major <> ", error: " <> show majorTxt+               <> ", minor code: " <> show minor <> ", error: " <> show minorTxt     defaultAuthResponse settings respond  -- | Key that is used to access the username in WAI vault