maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* changes to migration script. As expected it doesn't work yet

Browse source
This commit is contained in:
Vincent Ambo 2012-03-12 09:47:30 +01:00
parent 6d9144a7ee
commit c6124d9aa7
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/acid-migrate/Acid.hs
View file

@ -30,7 +30,7 @@ import qualified Data.Text as Text
{-CouchDB imports-} {-CouchDB imports-}
import Database.CouchDB import Database.CouchDB hiding (runCouchDB')
import Database.CouchDB.JSON import Database.CouchDB.JSON
import Text.JSON import Text.JSON
import Data.List (intersperse) import Data.List (intersperse)
@ -187,6 +187,10 @@ $(makeAcidic ''Blog
]) ])
-- CouchDB database functions -- CouchDB database functions
runCouchDB' :: CouchMonad a -> IO a
runCouchDB' = runCouchDB "hackbox.local" 5984
instance JSON Comment where instance JSON Comment where
showJSON = undefined showJSON = undefined
readJSON val = do readJSON val = do
@ -207,7 +211,7 @@ instance JSON Entry where
year <- jsonField "year" obj year <- jsonField "year" obj
stext <- jsonField "text" obj stext <- jsonField "text" obj
comments <- jsonField "comments" obj comments <- jsonField "comments" obj
oldid <- jsonField "id_" obj oldid <- jsonField "_id" obj
let leTime = parseShittyTime year month day oldid let leTime = parseShittyTime year month day oldid
return $ Entry (EntryId $ getUnixTime leTime) DE (pack sauthor) (pack stitle) (pack stext) (Text.empty) return $ Entry (EntryId $ getUnixTime leTime) DE (pack sauthor) (pack stitle) (pack stext) (Text.empty)
leTime [] comments leTime [] comments
@ -255,4 +259,5 @@ main = do
convertEntries acid = do convertEntries acid = do
entries <- parseOldEntries entries <- parseOldEntries
let x = map (pasteToDB acid) entries let x = map (pasteToDB acid) entries
putStrLn "Conversion successful" let titles = map (title) entries
putStrLn $ show titles