mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

update, fixing compilation and fixing to actually do a join

Browse source
This commit is contained in:
Joey Hess 2015-02-15 13:54:04 -04:00
parent f4bb822e54
commit 8419d3eef5
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
fooes.hs
View file

@ -22,15 +22,21 @@ AssociatedFiles
main :: IO ()
main = runSqlite "foo.db" $ do
runMigration migrateAll
if True then populate else return ()
query
populate = do
forM_ [1..30000] $ \i -> do
--delete $ from $ \f -> do
-- where_ (f ^. CachedKeyKey ==. val (show i))
k <- insert $ CachedKey (show i)
liftIO $ print k
insert $ AssociatedFiles k (show i)
liftIO $ print ("stored", k)
insert $ AssociatedFiles k ("file" ++show (i+1))
--insert $ AssociatedFiles k ("otherfile" ++show (i+2))
[(k2)] <- select $ from $ \k -> do
where_ (k ^. CachedKeyKey ==. val (show i))
return (k ^. CachedKeyId)
liftIO $ print (2, k2)
delete $ from $ \f -> do
where_ (f ^. AssociatedFilesKey ==. k2)
query = forM_ [1..1000] $ \i -> do
r <- select $ from $ \(k, f) -> do
where_ (k ^. CachedKeyKey ==. val (show i))
where_ (f ^. AssociatedFilesKey ==. k ^. CachedKeyId)
return (f ^. AssociatedFilesFile)
liftIO $ print ("got", r)