on master help sign in
Make Haddock work for hie-core (#1990)
commit5ebce241896a1b1d802a6685e6708d7e7a05d485 authorNeil Mitchell <ndmitchell@gmail.com> dateWed 3 Jul 2019, 15:21 (7 years ago) parent44b40b5
2 files changed+12−13
src/Development/IDE/Core/Compile.hs+4−4 src/Development/IDE/Core/Shake.hs+8−9
src/Development/IDE/Core/Compile.hs+4−4
@@ -285,10 +285,10 @@ getModSummaryFromBuffer fp contents dflags parsed = do
285285 { ms_mod = mkModule (fsToUnitId unitId) modName
286286 , ms_location = modLoc
287287 , ms_hs_date = error "Rules should not depend on ms_hs_date"
288− -- ^ When we are working with a virtual file we do not have a file date.
289− -- To avoid silent issues where something is not processed because the date
290− -- has not changed, we make sure that things blow up if they depend on the
291− -- date.
288+ -- When we are working with a virtual file we do not have a file date.
289+ -- To avoid silent issues where something is not processed because the date
290+ -- has not changed, we make sure that things blow up if they depend on the
291+ -- date.
292292 , ms_textual_imps = imports
293293 , ms_hspp_file = fp
294294 , ms_hspp_opts = dflags
src/Development/IDE/Core/Shake.hs+8−9
@@ -73,7 +73,7 @@ import Data.Time
7373import GHC.Generics
7474import System.IO.Unsafe
7575import Numeric.Extra
76−
76+import Language.Haskell.LSP.Types
7777
7878
7979-- information we stash inside the shakeExtra field
@@ -444,14 +444,13 @@ getDiagnosticsFromStore (StoreItem _ diags) = concatMap SL.fromSortedList $ Map.
444444
445445-- | Sets the diagnostics for a file and compilation step
446446-- if you want to clear the diagnostics call this with an empty list
447−setStageDiagnostics ::
448− NormalizedFilePath ->
449− Maybe Int ->
450− -- ^ the time that the file these diagnostics originate from was last edited
451− T.Text ->
452− [LSP.Diagnostic] ->
453− DiagnosticStore ->
454− DiagnosticStore
447+setStageDiagnostics
448+ :: NormalizedFilePath
449+ -> TextDocumentVersion -- ^ the time that the file these diagnostics originate from was last edited
450+ -> T.Text
451+ -> [LSP.Diagnostic]
452+ -> DiagnosticStore
453+ -> DiagnosticStore
455454setStageDiagnostics fp timeM stage diags ds =
456455 updateDiagnostics ds uri timeM diagsBySource
457456 where