[nongnu] elpa/haskell-tng-mode ef3cea6 340/385: thots

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit ef3cea6c9185a1bdf0d48b36b4d3200b2e992449
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    thots
---
 haskell-tng-hsinspect.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/haskell-tng-hsinspect.el b/haskell-tng-hsinspect.el
index 1a95dc4..cc01612 100644
--- a/haskell-tng-hsinspect.el
+++ b/haskell-tng-hsinspect.el
@@ -62,6 +62,7 @@ TODO: support local / git packages by consulting `plan.json'"
               (found (haskell-tng--hsinspect-qualify imports sym)))
     (pcase-let* ((`(,imported . ,name) (haskell-tng--string-split-last found 
"."))
                  (`(,srcid . ,module) (haskell-tng--hsinspect-follow index nil 
imported name))
+                 ;; FIXME filter out inplace things
                  (tarball (haskell-tng--hsinspect-srcid-source srcid))
                  (file (concat
                         ;; TODO string-replace would be nice...
@@ -122,10 +123,13 @@ TODO: support local / git packages by consulting 
`plan.json'"
 
 (defvar-local haskell-tng-hsinspect-as
   ;; TODO populate with even more than this
-  '(("Data.List" . "L")
+  '(("Data.Aeson" . "Json")
+    ("Data.List" . "L")
     ("Data.List.NonEmpty" . "NE")
+    ("Data.Map.String" . "M")
     ("Data.ByteString" . "BS")
-    ("Data.ByteString.Lazy" . "LBS"))
+    ("Data.ByteString.Lazy" . "LBS")
+    ("Data.Text" . "T"))
   "An alist of (MODULE . NAME) to use for qualified imports.")
 (put 'haskell-tng-hsinspect-as 'safe-local-variable #'listp)
 (defun haskell-tng--hsinspect-as (module)