Remove qualified keyword from sorting imports

Such keyword isn't a thing in Purescript, it has instead syntax
`import Foo as Bar`. I also checked VSCode purescript highlight mode,
it also doesn't have `qualified` in among its sources.

Author: Hi-Angel

purescript-sort-imports.el

@@ -32,8 +32,7 @@
 
 (defvar purescript-sort-imports-regexp
   (concat "^import[ ]+"
-          "\\(qualified \\)?"
-          "[ ]*\\(\"[^\"]*\" \\)?"
+          "\\(\"[^\"]*\" \\)?"
           "[ ]*\\([A-Za-z0-9_.']*.*\\)"))
 
 ;;;###autoload
@@ -68,9 +67,8 @@ within that region."
 
 (defun purescript-sort-imports-normalize (i)
   "Normalize an import, if possible, so that it can be sorted."
-  (if (string-match purescript-sort-imports-regexp
-                    i)
-      (match-string 3 i)
+  (if (string-match purescript-sort-imports-regexp i)
+      (match-string 2 i)
     i))
 
 (defun purescript-sort-imports-collect-imports ()

tests/purescript-sort-imports-tests.el

@@ -45,23 +45,23 @@ import B
 import B
 ")))
   (should (with-temp-buffer
-            (insert "import qualified A
+            (insert "import A (A, B, C)
 import B
 ")
             (goto-char (point-min))
             (purescript-sort-imports)
             (string= (buffer-string)
-                     "import qualified A
+                     "import A (A, B, C)
 import B
 ")))
   (should (with-temp-buffer
-            (insert "import qualified \"mtl\" A
+            (insert "import A (mtl)
 import B
 ")
             (goto-char (point-min))
             (purescript-sort-imports)
             (string= (buffer-string)
-                     "import qualified \"mtl\" A
+                     "import A (mtl)
 import B
 "))))
 
@@ -116,8 +116,8 @@ import Data.Aeson.Types
 import Data.Aeson.Parser.Internal (decodeWith, decodeStrictWith,
                                    eitherDecodeWith, eitherDecodeStrictWith,
                                    jsonEOF, json, jsonEOF', json')
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as L
+import Data.ByteString as B
+import Data.ByteString.Lazy as L
 ")
             (goto-char (point-min))
             (purescript-sort-imports)
@@ -127,8 +127,8 @@ import Data.Aeson.Parser.Internal (decodeWith, decodeStrictWith,
                                    eitherDecodeWith, eitherDecodeStrictWith,
                                    jsonEOF, json, jsonEOF', json')
 import Data.Aeson.Types
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as L
+import Data.ByteString as B
+import Data.ByteString.Lazy as L
 "))))
 
 (provide 'purescript-sort-imports-tests)