servant-auth-token-leveldb 0.4.1.1 → 0.4.1.2
raw patch · 4 files changed
+10/−8 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Servant.Server.Auth.Token.LevelDB.Schema: class Key i a | i -> a, a -> i where encodeKey i = runEncode $ do { pokeE tname; safePut i } where tname = show $ typeRep (Proxy :: Proxy i)
+ Servant.Server.Auth.Token.LevelDB.Schema: class Key i a | i -> a, a -> i where encodeKey i = runEncode $ do { _ <- pokeE tname; safePut i } where tname = show $ typeRep (Proxy :: Proxy i)
Files
- CHANGELOG.md +5/−0
- servant-auth-token-leveldb.cabal +1/−1
- src/Servant/Server/Auth/Token/LevelDB.hs +0/−1
- src/Servant/Server/Auth/Token/LevelDB/Schema.hs +4/−6
CHANGELOG.md view
@@ -1,3 +1,8 @@+0.4.1.2+=======++* Bug with not total case coverage is fixed.+ 0.4.1.1 =======
servant-auth-token-leveldb.cabal view
@@ -1,5 +1,5 @@ name: servant-auth-token-leveldb-version: 0.4.1.1+version: 0.4.1.2 synopsis: Leveldb backend for servant-auth-token server description: Please see README.md homepage: https://github.com/ncrashed/servant-auth-token#readme
src/Servant/Server/Auth/Token/LevelDB.hs view
@@ -11,7 +11,6 @@ import Control.Monad.Reader import Control.Monad.Trans.Control import Control.Monad.Trans.Resource-import Database.LevelDB import Servant.Server import Servant.Server.Auth.Token.Config import Servant.Server.Auth.Token.LevelDB.Schema (LevelDBEnv, newLevelDBEnv)
src/Servant/Server/Auth/Token/LevelDB/Schema.hs view
@@ -20,7 +20,6 @@ import Data.Text (Text) import Data.Time import Data.Typeable hiding (Proxy)-import Data.Vector (Vector) import Database.LevelDB import Safe @@ -49,7 +48,6 @@ import qualified Data.Foldable as F import qualified Data.Map.Strict as M import qualified Data.Set as S-import qualified Data.Vector as V -- | ID of global model index newtype ModelId = ModelId { unModelId :: Int64 }@@ -127,7 +125,7 @@ default encodeKey :: (SafeCopy i, Typeable i) => i -> ByteString encodeKey i = runEncode $ do- pokeE tname+ _ <- pokeE tname safePut i where tname = show $ typeRep (Proxy :: Proxy i)@@ -346,7 +344,7 @@ mp <- load db i case mp of Just p | userPermPermission p == perm -> fmap (WithField (userPermUser p)) <$> load db (userPermUser p)- Nothing -> pure Nothing+ _ -> pure Nothing F.foldrM go Nothing ps -- | Select user groups and sort them by ascending name@@ -513,8 +511,8 @@ instance (SafeCopy k, SafeCopy v) => SafeCopy (WithField i k v) where putCopy a@(WithField k v) = contain $ do- safePut k- safePut v+ _ <- safePut k+ _ <- safePut v return a getCopy = contain $ WithField <$> safeGet