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

Fix haddock

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-04 17:20:53 +02:00
parent f4b93644a8
commit c0b2991c16
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Utils/DB.hs
View File

@ -20,8 +20,8 @@ flipMaybe _ (Just _) = Nothing
emptyOrIn :: PersistField typ => emptyOrIn :: PersistField typ
E.SqlExpr (E.Value typ) -> Set typ -> E.SqlExpr (E.Value Bool) => E.SqlExpr (E.Value typ) -> Set typ -> E.SqlExpr (E.Value Bool)
emptyOrIn criterion testSet emptyOrIn criterion testSet
| Set.null testSet = E.val True | Set.null testSet = E.val True
| otherwise = criterion `E.in_` E.valList (Set.toList testSet) | otherwise = criterion `E.in_` E.valList (Set.toList testSet)
@ -56,15 +56,17 @@ updateBy uniq updates = do
uniqueReplace :: ( MonadIO m uniqueReplace :: ( MonadIO m
, Eq (Unique record) , Eq (Unique record)
, PersistRecordBackend record backend , PersistRecordBackend record backend
,PersistUniqueWrite backend) , PersistUniqueWrite backend
)
=> Key record -> record -> ReaderT backend m (Maybe (Key record)) => Key record -> record -> ReaderT backend m (Maybe (Key record))
uniqueReplace key datumNew = flipMaybe key <$> myReplaceUnique key datumNew uniqueReplace key datumNew = flipMaybe key <$> myReplaceUnique key datumNew
myReplaceUnique -- | Identical to 'Database.Persist.Class', except for the better type signature (original requires Eq record which is not needed anyway) -- | Identical to 'Database.Persist.Class', except for the better type signature (original requires Eq record which is not needed anyway)
:: (MonadIO m myReplaceUnique :: ( MonadIO m
, Eq (Unique record) , Eq (Unique record)
, PersistRecordBackend record backend , PersistRecordBackend record backend
,PersistUniqueWrite backend) , PersistUniqueWrite backend
)
=> Key record -> record -> ReaderT backend m (Maybe (Unique record)) => Key record -> record -> ReaderT backend m (Maybe (Unique record))
myReplaceUnique key datumNew = getJust key >>= replaceOriginal myReplaceUnique key datumNew = getJust key >>= replaceOriginal
where where
@ -78,11 +80,11 @@ myReplaceUnique key datumNew = getJust key >>= replaceOriginal
changedKeys = uniqueKeysNew List.\\ uniqueKeysOriginal changedKeys = uniqueKeysNew List.\\ uniqueKeysOriginal
uniqueKeysOriginal = persistUniqueKeys original uniqueKeysOriginal = persistUniqueKeys original
checkUniqueKeys checkUniqueKeys :: ( MonadIO m
:: (MonadIO m
, PersistEntity record , PersistEntity record
, PersistUniqueRead backend , PersistUniqueRead backend
,PersistRecordBackend record backend) , PersistRecordBackend record backend
)
=> [Unique record] -> ReaderT backend m (Maybe (Unique record)) => [Unique record] -> ReaderT backend m (Maybe (Unique record))
checkUniqueKeys [] = return Nothing checkUniqueKeys [] = return Nothing
checkUniqueKeys (x:xs) = do checkUniqueKeys (x:xs) = do