mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* saved the function that I cleaned the comments with. The function is horrendous

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-28 13:12:08 +02:00
parent b3fb7f0f34
commit 247265f354
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
tools/fixcomments.hs Normal file
View file

@ -0,0 +1,21 @@
fixComments :: AcidState Blog -> IO ()
fixComments acid = do
entriesDE <- query' acid $ LatestEntries DE
entriesEN <- query' acid $ LatestEntries EN
filterComments entriesDE
filterComments entriesEN
where
(cDate :: UTCTime) = fromJust $ parseTime defaultTimeLocale "%d.%m.%Y %T" "22.04.2012 21:57:35"
foldOp :: [(EntryId, [UTCTime])] -> Entry -> [(EntryId, [UTCTime])]
foldOp l e = let c = map cdate $ filter (\c1 -> cdate c1 > cDate) $ comments e
in if null c then l
else (entryId e, c) : l
pred :: Entry -> Bool
pred e = let f eId [] = False
f eId (c:r) = if (cdate c > cDate) then True
else f eId r
in f (entryId e) (comments e)
filterComments entries = mapM_ removeComments $ foldl foldOp [] $ filter pred entries
removeComments :: (EntryId, [UTCTime]) -> IO ()
removeComments (eId, comments) = mapM_ (\c -> update' acid $ DeleteComment eId c) comments