@@ -6,6 +6,7 @@
66-- | Attempt at hiding the GHC version differences we can.
77module Development.IDE.Compat(
88 HieFile(..),
9+ HieFileResult(..),
910 mkHieFile,
1011 writeHieFile,
1112 readHieFile
@@ -30,9 +31,11 @@ mkHieFile _ _ _ = return (HieFile () [])
3031writeHieFile :: FilePath -> HieFile -> IO ()
3132writeHieFile _ _ = return ()
3233
33−readHieFile :: NameCache -> FilePath -> IO (HieFile, ())
34−readHieFile _ _ = return (HieFile () [], ())
34+readHieFile :: NameCache -> FilePath -> IO (HieFileResult, ())
35+readHieFile _ _ = return (HieFileResult $ HieFile () [], ())
3536
3637data HieFile = HieFile {hie_module :: (), hie_exports :: [AvailInfo]}
3738
39+data HieFileResult = HieFileResult {hie_file_result :: HieFile}
40+
3841#endif