fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-07-17 08:45:25 +02:00
parent e7a5162ec9
commit 82b24df1f0
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Jobs/Handler/Files.hs
View File

@ -57,9 +57,9 @@ dispatchJobPruneUnreferencedFiles = JobHandlerAtomic . hoist lift $ do
where where
getCandidates = E.selectSource . E.from $ \fileContent -> do getCandidates = E.selectSource . E.from $ \fileContent -> do
E.where_ . E.not_ . E.any E.exists $ fileReferences (fileContent E.^. FileContentHash) E.where_ . E.not_ . E.any E.exists $ fileReferences (fileContent E.^. FileContentHash)
return $ ( fileContent E.^. FileContentHash return ( fileContent E.^. FileContentHash
, E.length_ $ fileContent E.^. FileContentContent , E.length_ $ fileContent E.^. FileContentContent
) )
dispatchJobInjectFiles :: JobHandler UniWorX dispatchJobInjectFiles :: JobHandler UniWorX

8
src/Utils/PersistentTokenBucket.hs
View File

@ -23,12 +23,12 @@ persistentTokenBucketTryAlloc' :: (MonadHandler m, HasAppSettings (HandlerSite m
-> SqlPersistT m Bool -> SqlPersistT m Bool
persistentTokenBucketTryAlloc' tbsIdent tokens = do persistentTokenBucketTryAlloc' tbsIdent tokens = do
TokenBucketConf{..} <- getsYesod $ views _appPersistentTokenBuckets ($ tbsIdent) TokenBucketConf{..} <- getsYesod $ views _appPersistentTokenBuckets ($ tbsIdent)
flip persistentTokenBucketTryAlloc tokens TokenBucketSettings persistentTokenBucketTryAlloc TokenBucketSettings
{ tbsIdent { tbsIdent
, tbsDepth = tokenBucketDepth , tbsDepth = tokenBucketDepth
, tbsInvRate = tokenBucketInvRate , tbsInvRate = tokenBucketInvRate
, tbsInitialValue = tokenBucketInitialValue , tbsInitialValue = tokenBucketInitialValue
} } tokens
persistentTokenBucketTryAlloc :: (MonadIO m, Integral a) => TokenBucketSettings -> a -> SqlPersistT m Bool persistentTokenBucketTryAlloc :: (MonadIO m, Integral a) => TokenBucketSettings -> a -> SqlPersistT m Bool
@ -65,12 +65,12 @@ persistentTokenBucketTakeC' :: forall i m a.
-> ConduitT i i (ReaderT SqlBackend m) () -> ConduitT i i (ReaderT SqlBackend m) ()
persistentTokenBucketTakeC' tbsIdent cTokens = do persistentTokenBucketTakeC' tbsIdent cTokens = do
TokenBucketConf{..} <- getsYesod $ views _appPersistentTokenBuckets ($ tbsIdent) TokenBucketConf{..} <- getsYesod $ views _appPersistentTokenBuckets ($ tbsIdent)
flip persistentTokenBucketTakeC cTokens TokenBucketSettings persistentTokenBucketTakeC TokenBucketSettings
{ tbsIdent { tbsIdent
, tbsDepth = tokenBucketDepth , tbsDepth = tokenBucketDepth
, tbsInvRate = tokenBucketInvRate , tbsInvRate = tokenBucketInvRate
, tbsInitialValue = tokenBucketInitialValue , tbsInitialValue = tokenBucketInitialValue
} } cTokens
persistentTokenBucketTakeC :: forall i m a. persistentTokenBucketTakeC :: forall i m a.
(MonadIO m, Integral a) (MonadIO m, Integral a)