Get rid of landmine
This commit is contained in:
parent
ec5a362179
commit
254f6a9a73
@ -1,4 +1,4 @@
|
|||||||
{-# LANGUAGE CPP, BangPatterns, DoAndIfThenElse, MultiWayIf #-}
|
{-# LANGUAGE CPP, BangPatterns, DoAndIfThenElse #-}
|
||||||
|
|
||||||
module Language.Haskell.GhcMod.Find
|
module Language.Haskell.GhcMod.Find
|
||||||
#ifndef SPEC
|
#ifndef SPEC
|
||||||
@ -176,17 +176,18 @@ newAsyncSymbolDb tmpdir = do
|
|||||||
return $ AsyncSymbolDb tmpdir mv
|
return $ AsyncSymbolDb tmpdir mv
|
||||||
|
|
||||||
getAsyncSymbolDb :: forall m. IOish m => AsyncSymbolDb -> GhcModT m SymbolDb
|
getAsyncSymbolDb :: forall m. IOish m => AsyncSymbolDb -> GhcModT m SymbolDb
|
||||||
getAsyncSymbolDb (AsyncSymbolDb tmpdir mv) = go 0
|
getAsyncSymbolDb (AsyncSymbolDb tmpdir mv) = do
|
||||||
|
db <- liftIO $ handleEx <$> takeMVar mv
|
||||||
|
outdated <- isOutdated db
|
||||||
|
if outdated
|
||||||
|
then do
|
||||||
|
asyncLoadSymbolDb tmpdir mv
|
||||||
|
liftIO $ handleEx <$> readMVar mv
|
||||||
|
else do
|
||||||
|
liftIO $ putMVar mv $ Right db
|
||||||
|
return db
|
||||||
where
|
where
|
||||||
go :: Integer -> GhcModT m SymbolDb
|
handleEx edb =
|
||||||
go i = do
|
|
||||||
edb <- liftIO $ takeMVar mv
|
|
||||||
case edb of
|
case edb of
|
||||||
Left ex -> throw ex
|
Left ex -> throw ex
|
||||||
Right db -> do
|
Right db -> db
|
||||||
outdated <- isOutdated db
|
|
||||||
if | i > 2 -> error "getAsyncSymbolDb: outdated loop"
|
|
||||||
| outdated -> asyncLoadSymbolDb tmpdir mv >> go (i + 1)
|
|
||||||
| otherwise -> do
|
|
||||||
liftIO $ putMVar mv (Right db)
|
|
||||||
return db
|
|
||||||
|
Loading…
Reference in New Issue
Block a user