Refactoring

Summary: Applying pepeiborra's suggestion from D53090512 Reviewed By: pepeiborra Differential Revision: D53126339 fbshipit-source-id: fdfe46d42789cd98d35bef052047ac53f84962d9
facebookincubator · Jan 26, 2024 · 83fd629 · 83fd629
1 parent 1b28291
commit 83fd629
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/glean/haxl/Haxl/DataSource/Glean.hs b/glean/haxl/Haxl/DataSource/Glean.hs
@@ -108,8 +108,7 @@ search_
   :: (Typeable q, Show q, HasRepo u)
   => Query q
   -> GenHaxl u w [q]
-search_ q = haxlRepo >>= \repo ->
-  fmap (fromAppendList . fst) $ dataFetch $ mkQueryReq repo q True
+search_ = fmap fromAppendList . searchWith
 
 searchWith
   :: (Typeable r, Show r, Typeable q, Show q, HasRepo u, QueryResult q r)