joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-09-11 04:45:28 +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 Data.Bifunctor (second)
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
import Unused.Util (groupBy) import Unused.Util (groupBy)
import Unused.Types (ParseResponse, TermMatch, resultsFromMatches, tmTerm) import Unused.Types (ParseResponse, TermMatchSet, TermMatch, resultsFromMatches, tmTerm)
import Unused.LikelihoodCalculator import Unused.LikelihoodCalculator
import Unused.Parser.Internal import Unused.Parser.Internal
parseLines :: [LanguageConfiguration] -> String -> ParseResponse parseLines :: [LanguageConfiguration] -> String -> ParseResponse
parseLines lcs = parseLines lcs =
responseFromParse lcs . parse parseTermMatches "matches" fmap (matchesToMatchSet lcs) . parse parseTermMatches "matches"
responseFromParse :: [LanguageConfiguration] -> Either ParseError [TermMatch] -> ParseResponse matchesToMatchSet :: [LanguageConfiguration] -> [TermMatch] -> TermMatchSet
responseFromParse lcs = matchesToMatchSet lcs =
fmap $ Map.fromList . map (second $ calculateLikelihood lcs . resultsFromMatches) . groupBy tmTerm Map.fromList . map (second $ calculateLikelihood lcs . resultsFromMatches) . groupBy tmTerm