github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Fix some constraints & imports.

Browse Source
This commit is contained in:
Rob Rix 2019-10-22 16:18:56 -04:00
parent bf82196315
commit fc46362957
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Rendering/TOC/Spec.hs
View File

@ -4,6 +4,7 @@ module Rendering.TOC.Spec (spec) where
import Analysis.TOCSummary import Analysis.TOCSummary
import Control.Effect.Parse import Control.Effect.Parse
import Control.Effect.Reader import Control.Effect.Reader
import Control.Monad.IO.Class
import Data.Aeson hiding (defaultOptions) import Data.Aeson hiding (defaultOptions)
import Data.Bifunctor import Data.Bifunctor
import Data.Diff import Data.Diff
@ -216,7 +217,7 @@ blankDiff = merge (Nothing, Nothing) (inject [ inserting (termIn Nothing (inject
-- Diff helpers -- Diff helpers
summarize summarize
:: (Member Telemetry sig, Carrier sig m, MonadIO m) :: (Member (Error SomeException) sig, Member Parse sig, Member Telemetry sig, Carrier sig m, MonadIO m)
=> BlobPair => BlobPair
-> m [Either ErrorSummary TOCSummary] -> m [Either ErrorSummary TOCSummary]
summarize = parsePairWith (summarizeTermParsers defaultLanguageModes) summarizeTerms summarize = parsePairWith (summarizeTermParsers defaultLanguageModes) summarizeTerms