File tree 4 files changed +9
-6
lines changed
4 files changed +9
-6
lines changed Original file line number Diff line number Diff line change @@ -32,6 +32,7 @@ import GHC.Generics (Generic)
32
32
import qualified Language.PureScript as P
33
33
import qualified Language.PureScript.Bundle as Bundle
34
34
import qualified Language.PureScript.CodeGen.JS as J
35
+ import qualified Language.PureScript.CodeGen.JS.Printer as P
35
36
import qualified Language.PureScript.CoreFn as CF
36
37
import qualified Language.PureScript.Errors.JSON as P
37
38
import qualified Language.PureScript.Interactive as I
@@ -105,13 +106,13 @@ server bundled externs initEnv port = do
105
106
Nothing -> Scotty. json $ A. object [ " error" .= (" Cannot parse type" :: Text ) ]
106
107
Just ty -> do
107
108
let elabs = lookupAllConstructors initEnv ty
108
- search = M. toList . TS. typeSearch (Just [] ) initEnv (P. emptyCheckState initEnv)
109
+ search = fst . TS. typeSearch (Just [] ) initEnv (P. emptyCheckState initEnv)
109
110
results = nubBy ((==) `on` fst ) $ do
110
111
elab <- elabs
111
112
let strictMatches = search (replaceTypeVariablesAndDesugar (\ nm s -> P. Skolem nm s (P. SkolemScope 0 ) Nothing ) elab)
112
113
flexMatches = search (replaceTypeVariablesAndDesugar (const P. TUnknown ) elab)
113
114
take 50 (strictMatches ++ flexMatches)
114
- Scotty. json $ A. object [ " results" .= [ P. showQualified P. runIdent k
115
+ Scotty. json $ A. object [ " results" .= [ P. showQualified id k
115
116
| (k, _) <- take 50 results
116
117
]
117
118
]
Original file line number Diff line number Diff line change @@ -3,7 +3,8 @@ flags: {}
3
3
packages :
4
4
- ' .'
5
5
extra-deps :
6
- - purescript-0.10.5
6
+ - purescript-0.11.1
7
7
- bower-json-1.0.0.1
8
8
- language-javascript-0.6.0.9
9
+ - optparse-applicative-0.13.2.0
9
10
- parsec-3.1.11
Original file line number Diff line number Diff line change 1
1
{
2
2
"name" : " core" ,
3
- "set" : " psc-0.10.2 " ,
3
+ "set" : " psc-0.11.1 " ,
4
4
"source" : " https://github.com/purescript/package-sets.git" ,
5
5
"depends" : [
6
6
" arrays" ,
45
45
" tailrec" ,
46
46
" transformers" ,
47
47
" tuples" ,
48
+ " typelevel-prelude" ,
48
49
" unfoldable" ,
49
50
" validation"
50
51
]
Original file line number Diff line number Diff line change 1
1
name : trypurescript
2
- version : 0.10.5
2
+ version : 0.11.1
3
3
cabal-version : >= 1.8
4
4
build-type : Simple
5
5
license : BSD3
@@ -20,7 +20,7 @@ executable trypurescript
20
20
filepath -any,
21
21
Glob -any,
22
22
scotty -any,
23
- purescript == 0.10.5 ,
23
+ purescript == 0.11.1 ,
24
24
containers -any,
25
25
http-types >= 0.8.5 ,
26
26
transformers == 0.4. *,
You can’t perform that action at this time.
0 commit comments