Move makeHieAstResult function to RuleTypes

Author: nlander

ghcide/src/Development/IDE/Core/RuleTypes.hs

@@ -217,6 +217,19 @@ data HieAstResult
   -- ^ Is this hie file loaded from the disk, or freshly computed?
   }
 
+-- | Make an HieAstResult from a loaded HieFile
+makeHieAstResult :: HieFile -> HieAstResult
+makeHieAstResult hieFile =
+    HAR
+        (hie_module hieFile)
+        hieAsts
+        (generateReferencesMap $ M.elems $ getAsts hieAsts)
+        mempty
+        (HieFromDisk hieFile)
+    where
+        hieAsts :: HieASTs TypeIndex
+        hieAsts = hie_asts hieFile
+
 data HieKind a where
   HieFromDisk :: !HieFile -> HieKind TypeIndex
   HieFresh :: HieKind Type

ghcide/src/Development/IDE/Core/Rules.hs

@@ -589,18 +589,6 @@ getHieAstsRule recorder =
                 tmr <- use_ TypeCheck f
                 hsc <- hscEnv <$> use_ GhcSessionDeps f
                 getHieAstRuleDefinition f hsc tmr
-    where
-        makeHieAstResult :: Compat.HieFile -> HieAstResult
-        makeHieAstResult hieFile =
-            HAR
-                (Compat.hie_module hieFile)
-                hieAsts
-                (Compat.generateReferencesMap $ M.elems $ getAsts hieAsts)
-                mempty
-                (HieFromDisk hieFile)
-            where
-                hieAsts :: HieASTs TypeIndex
-                hieAsts = Compat.hie_asts hieFile
 
 persistentHieFileRule :: Recorder (WithPriority Log) -> Rules ()
 persistentHieFileRule recorder = addPersistentRule GetHieAst $ \file -> runMaybeT $ do