Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rewrite function in a shorter way

Browse source
This commit is contained in:
Victor Denisov 2017-05-21 00:32:13 -07:00
parent 161ca964cb
commit 2984a9b57a
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Database/MongoDB/Query.hs
View file

@ -100,6 +100,7 @@ import qualified Data.ByteString.Lazy as LBS
import qualified Data.ByteString.Base16 as B16 import qualified Data.ByteString.Base16 as B16
import qualified Data.ByteString.Base64 as B64 import qualified Data.ByteString.Base64 as B64
import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Char8 as B
import qualified Data.Either as E
import qualified Crypto.Hash.MD5 as MD5 import qualified Crypto.Hash.MD5 as MD5
import qualified Crypto.Hash.SHA1 as SHA1 import qualified Crypto.Hash.SHA1 as SHA1
import qualified Crypto.MAC.HMAC as HMAC import qualified Crypto.MAC.HMAC as HMAC
@ -462,11 +463,7 @@ insertCommandDocument opts col docs writeConcern =
] ]
takeRightsUpToLeft :: [Either a b] -> [b] takeRightsUpToLeft :: [Either a b] -> [b]
takeRightsUpToLeft l = reverse $ go l [] takeRightsUpToLeft l = E.rights $ takeWhile E.isRight l
where
go [] !res = res
go ((Right x):xs) !res = go xs (x:res)
go ((Left _):_) !res = res
insert' :: (MonadIO m) insert' :: (MonadIO m)
=> [InsertOption] -> Collection -> [Document] -> Action m [Value] => [InsertOption] -> Collection -> [Document] -> Action m [Value]