renamings to make clean when old-format logs are being used
This commit is contained in:
parent
fd304dce60
commit
9887a378fe
17 changed files with 56 additions and 57 deletions
|
@ -19,7 +19,7 @@ import qualified Data.Attoparsec.ByteString.Char8 as A8
|
|||
import Data.ByteString.Builder
|
||||
|
||||
calcTrustMap :: L.ByteString -> TrustMap
|
||||
calcTrustMap = simpleMap . parseLog trustLevelParser
|
||||
calcTrustMap = simpleMap . parseLogOld trustLevelParser
|
||||
|
||||
trustLevelParser :: A.Parser TrustLevel
|
||||
trustLevelParser = (totrust <$> A8.anyChar <* A.endOfInput)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue