[Draft] Deeper integration with Agda: foundational work

.gitignore

@@ -4,6 +4,7 @@
 cabal-dev
 dist
 dist-*
+test/data/AST/
 node_modules/
 *.o
 *.hi

agda-language-server.cabal

@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.37.0.
+-- This file has been generated from package.yaml by hpack version 0.38.1.
 --
 -- see: https://github.com/sol/hpack
 
@@ -49,10 +49,23 @@ library
   exposed-modules:
       Agda
       Agda.Convert
+      Agda.Interaction.Imports.More
+      Agda.Interaction.Imports.Virtual
+      Agda.Interaction.Library.More
+      Agda.Interaction.Library.Parse.More
       Agda.IR
       Agda.Parser
       Agda.Position
+      Agda.Syntax.Abstract.More
+      Agda.TypeChecking.Monad.Options.More
       Control.Concurrent.SizedChan
+      Indexer
+      Indexer.Indexer
+      Indexer.Monad
+      Indexer.Postprocess
+      Indexer.Prepare
+      Language.LSP.Protocol.Types.More
+      Language.LSP.Protocol.Types.Uri.More
       Monad
       Options
       Render
@@ -68,9 +81,23 @@ library
       Render.TypeChecking
       Render.Utils
       Server
+      Server.AgdaLibResolver
+      Server.AgdaProjectResolver
       Server.CommandController
+      Server.Filesystem
       Server.Handler
+      Server.Handler.TextDocument.DocumentSymbol
+      Server.Handler.TextDocument.FileManagement
+      Server.Model
+      Server.Model.AgdaFile
+      Server.Model.AgdaLib
+      Server.Model.AgdaProject
+      Server.Model.Handler
+      Server.Model.InstalledLibsFile
+      Server.Model.Monad
+      Server.Model.Symbol
       Server.ResponseController
+      Server.VfsIndex
       Switchboard
   other-modules:
       Paths_agda_language_server
@@ -81,7 +108,7 @@ library
       OverloadedStrings
       PatternSynonyms
       TypeOperators
-  ghc-options: -Wincomplete-patterns -Wunused-do-bind -Wunused-foralls -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -Werror=incomplete-patterns -fno-warn-orphans
+  ghc-options: -Wincomplete-patterns -Werror=incomplete-patterns -Wunused-local-binds -Wunused-pattern-binds -Wunused-do-bind -Wunused-foralls -Wunused-imports -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -Wsimplifiable-class-constraints -fno-warn-orphans
   build-depends:
       Agda
     , aeson
@@ -92,6 +119,7 @@ library
     , filepath
     , lsp >=2
     , lsp-types >=2
+    , modern-uri
     , mtl
     , network
     , network-simple ==0.4.2
@@ -127,7 +155,7 @@ executable als
       OverloadedStrings
       PatternSynonyms
       TypeOperators
-  ghc-options: -Wincomplete-patterns -Wunused-do-bind -Wunused-foralls -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -rtsopts -Werror=incomplete-patterns -fno-warn-orphans
+  ghc-options: -Wincomplete-patterns -Werror=incomplete-patterns -Wunused-local-binds -Wunused-pattern-binds -Wunused-do-bind -Wunused-foralls -Wunused-imports -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -Wsimplifiable-class-constraints -fno-warn-orphans -rtsopts
   build-depends:
       Agda
     , aeson
@@ -139,6 +167,7 @@ executable als
     , filepath
     , lsp >=2
     , lsp-types >=2
+    , modern-uri
     , mtl
     , network
     , network-simple ==0.4.2
@@ -160,23 +189,47 @@ executable als
   if arch(wasm32)
     build-depends:
         unix >=2.8.0.0 && <2.9
-    ghc-options: -with-rtsopts=-V1
-  else
+  if !arch(wasm32)
     ghc-options: -threaded -with-rtsopts=-N
 
 test-suite als-test
   type: exitcode-stdio-1.0
   main-is: Test.hs
   other-modules:
+      Test.AgdaLibResolution
+      Test.Indexer
+      Test.Indexer.Invariants
+      Test.Indexer.Invariants.NoDuplicateDecl
+      Test.Indexer.Invariants.NoMissing
+      Test.Indexer.Invariants.NoOverlap
+      Test.Indexer.NoAnonFunSymbol
+      Test.Indexer.Reload
       Test.LSP
+      Test.Model
+      Test.ModelMonad
       Test.SrcLoc
+      Test.Uri
       Test.WASM
+      TestData
       Agda
       Agda.Convert
+      Agda.Interaction.Imports.More
+      Agda.Interaction.Imports.Virtual
+      Agda.Interaction.Library.More
+      Agda.Interaction.Library.Parse.More
       Agda.IR
       Agda.Parser
       Agda.Position
+      Agda.Syntax.Abstract.More
+      Agda.TypeChecking.Monad.Options.More
       Control.Concurrent.SizedChan
+      Indexer
+      Indexer.Indexer
+      Indexer.Monad
+      Indexer.Postprocess
+      Indexer.Prepare
+      Language.LSP.Protocol.Types.More
+      Language.LSP.Protocol.Types.Uri.More
       Monad
       Options
       Render
@@ -192,9 +245,23 @@ test-suite als-test
       Render.TypeChecking
       Render.Utils
       Server
+      Server.AgdaLibResolver
+      Server.AgdaProjectResolver
       Server.CommandController
+      Server.Filesystem
       Server.Handler
+      Server.Handler.TextDocument.DocumentSymbol
+      Server.Handler.TextDocument.FileManagement
+      Server.Model
+      Server.Model.AgdaFile
+      Server.Model.AgdaLib
+      Server.Model.AgdaProject
+      Server.Model.Handler
+      Server.Model.InstalledLibsFile
+      Server.Model.Monad
+      Server.Model.Symbol
       Server.ResponseController
+      Server.VfsIndex
       Switchboard
       Paths_agda_language_server
   hs-source-dirs:
@@ -205,7 +272,7 @@ test-suite als-test
       OverloadedStrings
       PatternSynonyms
       TypeOperators
-  ghc-options: -Wincomplete-patterns -Wunused-do-bind -Wunused-foralls -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -rtsopts -Werror=incomplete-patterns -fno-warn-orphans
+  ghc-options: -Wincomplete-patterns -Werror=incomplete-patterns -Wunused-local-binds -Wunused-pattern-binds -Wunused-do-bind -Wunused-foralls -Wunused-imports -Wwarnings-deprecations -Wwrong-do-bind -Wmissing-fields -Wmissing-methods -Wmissing-pattern-synonym-signatures -Wmissing-signatures -Wsimplifiable-class-constraints -fno-warn-orphans -rtsopts
   build-depends:
       Agda
     , aeson
@@ -217,6 +284,7 @@ test-suite als-test
     , lsp >=2
     , lsp-test
     , lsp-types >=2
+    , modern-uri
     , mtl
     , network
     , network-simple ==0.4.2
@@ -242,6 +310,5 @@ test-suite als-test
   if arch(wasm32)
     build-depends:
         unix >=2.8.0.0 && <2.9
-    ghc-options: -with-rtsopts=-V1
-  else
+  if !arch(wasm32)
     ghc-options: -threaded -with-rtsopts=-N

app/Main.hs

@@ -5,12 +5,10 @@ import Control.Monad (when)
 import Options
 import Server (run)
 -- import Simple (run)
-import System.Console.GetOpt
 import System.Directory (doesDirectoryExist)
 import System.Environment
 import System.FilePath ((</>))
 import System.IO
-import Text.Read (readMaybe)
 
 #if MIN_VERSION_Agda(2,8,0)
 import Agda.Setup (setup)

package.yaml

@@ -51,6 +51,10 @@ when:
 - condition: "arch(wasm32)"
   dependencies:
     - unix >= 2.8.0.0 && < 2.9
+- condition: "!arch(wasm32)"
+  ghc-options:
+  - -threaded
+  - -with-rtsopts=-N
 
 dependencies:
   - base >= 4.7 && < 5
@@ -62,6 +66,7 @@ dependencies:
   - filepath
   - lsp-types >= 2
   - lsp >= 2
+  - modern-uri
   - mtl
   - network
   - network-simple == 0.4.2
@@ -77,48 +82,32 @@ default-extensions:
 - PatternSynonyms
 - TypeOperators
 
+ghc-options:
+- -Wincomplete-patterns
+- -Werror=incomplete-patterns
+- -Wunused-local-binds
+- -Wunused-pattern-binds
+- -Wunused-do-bind
+- -Wunused-foralls
+- -Wunused-imports
+- -Wwarnings-deprecations
+- -Wwrong-do-bind
+- -Wmissing-fields
+- -Wmissing-methods
+- -Wmissing-pattern-synonym-signatures
+- -Wmissing-signatures
+- -Wsimplifiable-class-constraints
+- -fno-warn-orphans
+
 library:
   source-dirs: src
-  ghc-options:
-  - -Wincomplete-patterns
-  - -Wunused-do-bind
-  - -Wunused-foralls
-  - -Wwarnings-deprecations
-  - -Wwrong-do-bind
-  - -Wmissing-fields
-  - -Wmissing-methods
-  - -Wmissing-pattern-synonym-signatures
-  - -Wmissing-signatures
-  - -Werror=incomplete-patterns
-  - -fno-warn-orphans
-  when:
-  - condition: "!arch(wasm32)"
-    ghc-options:
-    - -threaded
-    - -with-rtsopts=-N
 
 executables:
   als:
-    main:                Main.hs
-    source-dirs:         app
+    main: Main.hs
+    source-dirs: app
     ghc-options:
-    - -Wincomplete-patterns
-    - -Wunused-do-bind
-    - -Wunused-foralls
-    - -Wwarnings-deprecations
-    - -Wwrong-do-bind
-    - -Wmissing-fields
-    - -Wmissing-methods
-    - -Wmissing-pattern-synonym-signatures
-    - -Wmissing-signatures
     - -rtsopts
-    - -Werror=incomplete-patterns
-    - -fno-warn-orphans
-    when:
-    - condition: "!arch(wasm32)"
-      ghc-options:
-      - -threaded
-      - -with-rtsopts=-N
     dependencies:
     - agda-language-server
 
@@ -128,39 +117,11 @@ tests:
     source-dirs:
       - test
       - src
+    ghc-options:
+      - -rtsopts
     dependencies:
       - lsp-test
       - tasty
       - tasty-hunit
       - tasty-golden
       - tasty-quickcheck
-
-    ghc-options:
-      - -Wincomplete-patterns
-      - -Wunused-do-bind
-      - -Wunused-foralls
-      - -Wwarnings-deprecations
-      - -Wwrong-do-bind
-      - -Wmissing-fields
-      - -Wmissing-methods
-      - -Wmissing-pattern-synonym-signatures
-      - -Wmissing-signatures
-      - -rtsopts
-      - -Werror=incomplete-patterns
-      - -fno-warn-orphans
-    when:
-    - condition: "!arch(wasm32)"
-      ghc-options:
-      - -threaded
-      - -with-rtsopts=-N
-
-# tests:
-#   als-test:
-#     main:                Spec.hs
-#     source-dirs:         test
-#     ghc-options:
-#     - -threaded
-#     - -rtsopts
-#     - -with-rtsopts=-N
-#     dependencies:
-#     - agda-language-server