joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Operate on purer data sets

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-23 08:22:09 -04:00
parent db10b79f93
commit fb1198dc2f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Unused/Parser.hs
View File

@ -6,14 +6,14 @@ module Unused.Parser
import Data.Bifunctor (second)
import qualified Data.Map.Strict as Map
import Unused.Util (groupBy)
import Unused.Types (ParseResponse, TermMatch, resultsFromMatches, tmTerm)
import Unused.Types (ParseResponse, TermMatchSet, TermMatch, resultsFromMatches, tmTerm)
import Unused.LikelihoodCalculator
import Unused.Parser.Internal
parseLines :: [LanguageConfiguration] -> String -> ParseResponse
parseLines lcs =
responseFromParse lcs . parse parseTermMatches "matches"
fmap (matchesToMatchSet lcs) . parse parseTermMatches "matches"
responseFromParse :: [LanguageConfiguration] -> Either ParseError [TermMatch] -> ParseResponse
responseFromParse lcs =
fmap $ Map.fromList . map (second $ calculateLikelihood lcs . resultsFromMatches) . groupBy tmTerm
matchesToMatchSet :: [LanguageConfiguration] -> [TermMatch] -> TermMatchSet
matchesToMatchSet lcs =
Map.fromList . map (second $ calculateLikelihood lcs . resultsFromMatches) . groupBy tmTerm