diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-08-19 14:21:36 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-08-19 14:21:36 +1000 |
| commit | 915e96424778fe7d178e0ef1d7289a0a5cee2b4b (patch) | |
| tree | 641b8e63cad10f548fe80e440d3c1b2288d03bbd | |
| parent | e013e2f14ac7309932a5fd80166efd53fae682a8 (diff) | |
linting disambiguate
| -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 = |