From c7f90efb8626573f2e2927195ce16cb609fac315 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 27 Jul 2014 12:24:12 -0400 Subject: use map for faster backend name lookup --- Backend.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'Backend.hs') diff --git a/Backend.hs b/Backend.hs index dded0d005..245e79ec2 100644 --- a/Backend.hs +++ b/Backend.hs @@ -32,6 +32,8 @@ import qualified Backend.Hash import qualified Backend.WORM import qualified Backend.URL +import qualified Data.Map as M + list :: [Backend] list = Backend.Hash.backends ++ Backend.WORM.backends ++ Backend.URL.backends @@ -116,7 +118,9 @@ lookupBackendName :: String -> Backend lookupBackendName s = fromMaybe unknown $ maybeLookupBackendName s where unknown = error $ "unknown backend " ++ s + maybeLookupBackendName :: String -> Maybe Backend -maybeLookupBackendName s = headMaybe matches - where - matches = filter (\b -> s == B.name b) list +maybeLookupBackendName s = M.lookup s nameMap + +nameMap :: M.Map String Backend +nameMap = M.fromList $ zip (map B.name list) list -- cgit v1.2.3