eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix basic-auth imports in servant-example

Browse source
This commit is contained in:
aaron levin 2016-01-08 12:35:11 +01:00
parent 683e100aed
commit 95d994a5f5
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
servant-examples/basic-auth/basic-auth.hs
View file

@ -13,10 +13,8 @@ import GHC.Generics (Generic)
import Network.Wai.Handler.Warp (run)
import Servant.API ((:<|>) ((:<|>)), (:>), BasicAuth,
Get, JSON)
import Servant.Server (Config (EmptyConfig),
ConfigEntry, Server, serve, (.:))
import Servant.Server.Internal.Auth (AuthResult (Authorized, Unauthorized),
BasicAuthCheck (BasicAuthCheck))
import Servant.Server (BasicAuthResult (Authorized, Unauthorized), Config (EmptyConfig),
ConfigEntry, Server, serve, (.:), BasicAuthCheck(BasicAuthCheck))
-- | let's define some types that our API returns.