From 9cbd38561213763dbbcefdfabd1519369d442113 Mon Sep 17 00:00:00 2001 From: Miguel Date: Sun, 17 Mar 2019 23:04:36 +0100 Subject: added info about cache hit and simple haskell for sorting by line-length --- freedomain/Lookup.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'freedomain/Lookup.hs') diff --git a/freedomain/Lookup.hs b/freedomain/Lookup.hs index ecaba49..413f80b 100644 --- a/freedomain/Lookup.hs +++ b/freedomain/Lookup.hs @@ -82,14 +82,16 @@ domainChecker :: [String -> IO Bool] -> MVar [String] -> MVar [(Bool,String)] domainChecker chk mvin mvout cache = nxtDom >>= \dom -> when (dom/="") $ do c<-readMVar cache - r<-case M.lookup dom c of - Just xx-> return xx + (r,ch)<-case M.lookup dom c of + Just xx-> return (xx,True) Nothing-> do x<-multiCheck chk dom addCache x dom - return x + return (x,False) outDom r dom - putStrLn $ dom ++ " " ++ (if r then "[\ESC[31m\STXTaken\ESC[m\STX]" else "[\ESC[32m\STXFree\ESC[m\STX]") + putStrLn $ dom ++ " " + ++ (if r then "[\ESC[31m\STXTaken\ESC[m\STX]" else "[\ESC[32m\STXFree\ESC[m\STX]") + ++ (if ch then " (\ESC[34m\STXcache hit\ESC[m\STX)" else "") domainChecker chk mvin mvout cache where outDom res dom =modifyMVar mvout $ \d -> -- cgit v1.2.3