From 915e96424778fe7d178e0ef1d7289a0a5cee2b4b Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 19 Aug 2022 14:21:36 +1000 Subject: linting disambiguate --- src/HaskellCodeExplorer/ModuleInfo.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 = -- cgit v1.2.3