Fix haddock

src/Utils/DB.hs

@@ -20,8 +20,8 @@ flipMaybe _ (Just _) = Nothing
 
 
 
-emptyOrIn :: PersistField typ =>
-  E.SqlExpr (E.Value typ) -> Set typ -> E.SqlExpr (E.Value Bool)
+emptyOrIn :: PersistField typ
+          => E.SqlExpr (E.Value typ) -> Set typ -> E.SqlExpr (E.Value Bool)
 emptyOrIn criterion testSet
   | Set.null testSet = E.val True
   | otherwise        = criterion `E.in_` E.valList (Set.toList testSet)
@@ -53,18 +53,20 @@ updateBy uniq updates = do
 
 -- | Like 'myReplaceUnique' or 'replaceUnique' but with reversed result: returns 'Nothing' if the replacement was not possible,
 --   and 'Just key' for the successfully replaced record
-uniqueReplace :: (MonadIO m
-       ,Eq (Unique record)
-       ,PersistRecordBackend record backend
-       ,PersistUniqueWrite backend)
+uniqueReplace :: ( MonadIO m
+                 , Eq (Unique record)
+                 , PersistRecordBackend record backend
+                 , PersistUniqueWrite backend
+                 )
               => Key record -> record -> ReaderT backend m (Maybe (Key record))
 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)
-    :: (MonadIO m
-       ,Eq (Unique record)
-       ,PersistRecordBackend record backend
-       ,PersistUniqueWrite backend)
+-- | Identical to 'Database.Persist.Class', except for the better type signature (original requires Eq  record which is not needed anyway)
+myReplaceUnique :: ( MonadIO m
+                   , Eq (Unique record)
+                   , PersistRecordBackend record backend
+                   , PersistUniqueWrite backend
+                   )
                 => Key record -> record -> ReaderT backend m (Maybe (Unique record))
 myReplaceUnique key datumNew = getJust key >>= replaceOriginal
   where
@@ -78,11 +80,11 @@ myReplaceUnique key datumNew = getJust key >>= replaceOriginal
         changedKeys = uniqueKeysNew List.\\ uniqueKeysOriginal
         uniqueKeysOriginal = persistUniqueKeys original
 
-checkUniqueKeys
-    :: (MonadIO m
-       ,PersistEntity record
-       ,PersistUniqueRead backend
-       ,PersistRecordBackend record backend)
+checkUniqueKeys :: ( MonadIO m
+                   , PersistEntity record
+                   , PersistUniqueRead backend
+                   , PersistRecordBackend record backend
+                   )
                 => [Unique record] -> ReaderT backend m (Maybe (Unique record))
 checkUniqueKeys [] = return Nothing
 checkUniqueKeys (x:xs) = do