Merge pull request #24 from JPMoresmau/master

Performance improvement
JPMoresmau · Mar 2, 2012 · 19239b2 · 19239b2
2 parents d746305 + ff28896
commit 19239b2
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Scion/PersistentBrowser/Build.hs b/src/Scion/PersistentBrowser/Build.hs
@@ -66,7 +66,8 @@ saveHackageDatabase file = withTemporaryDirectory (saveHackageDatabaseWithTmp fi
 
 saveHackageDatabaseWithTmp :: FilePath -> FilePath -> IO ()
 saveHackageDatabaseWithTmp file tmp = do (db, _) <- createHackageDatabase tmp
-                                         mapM_ (\pkg -> withSqliteConn (T.pack file) (runSqlConn (savePackageToDb pkg))) db
+                                         withSqliteConn (T.pack file) (runSqlConn (mapM_ savePackageToDb db))
+                                         --mapM_ (\pkg -> withSqliteConn (T.pack file) (runSqlConn (savePackageToDb pkg))) db
 
 -- | Downloads the information for the entire Hackage database
 --   creating an in-memory database with it.

diff --git a/src/Scion/PersistentHoogle/Parser.hs b/src/Scion/PersistentHoogle/Parser.hs
@@ -39,6 +39,9 @@ catMaybesM (x:xs) = do y <- x
 
 hoogleElements' :: BSParser [HalfResult]
 hoogleElements' =   try (do spaces0
+                            optional $ try (do 
+                                string "No results found"
+                                spacesOrEol0)
                             eof
                             return [])
                 <|> (do first <- hoogleElement