diff options
| -rw-r--r-- | src/HaskellCodeExplorer/ModuleInfo.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/HaskellCodeExplorer/ModuleInfo.hs b/src/HaskellCodeExplorer/ModuleInfo.hs index c651945..d344475 100644 --- a/src/HaskellCodeExplorer/ModuleInfo.hs +++ b/src/HaskellCodeExplorer/ModuleInfo.hs @@ -611,7 +611,11 @@ createDeclarations flags hsGroup typeEnv exportedSet transformation = (lineNumber (getLocA lf)) fords = map foreignFunToDeclaration $ hs_fords hsGroup -------------------------------------------------------------------------------- - in L.sortOn HCE.lineNumber $ vals ++ tyclds ++ insts ++ fords + in L.sortOn (\HCE.Declaration {..} -> lineNumber) + $ vals + ++ tyclds + ++ insts + ++ fords foldAST :: Environment -> TypecheckedModule -> SourceInfo foldAST environment typecheckedModule = |