File tree 7 files changed +17
-6
lines changed
7 files changed +17
-6
lines changed Original file line number Diff line number Diff line change @@ -11,6 +11,8 @@ New features:
11
11
Bugfixes:
12
12
13
13
Other improvements:
14
+ - Removed unused names found by v0.14.1 PureScript release (#112 by @JordanMartinez )
15
+ - Installed dependencies directly imported into source code that were previously installed transitively (#112 by @JordanMartinez )
14
16
15
17
## [ v6.0.0] ( https://github.com/purescript-contrib/purescript-parsing/releases/tag/v6.0.0 ) - 2021-02-26
16
18
Original file line number Diff line number Diff line change 3
3
[ " arrays"
4
4
, " assert"
5
5
, " console"
6
+ , " control"
6
7
, " effect"
7
8
, " either"
8
9
, " foldable-traversable"
9
10
, " identity"
10
11
, " integers"
11
12
, " lists"
13
+ , " math"
12
14
, " maybe"
15
+ , " newtype"
13
16
, " prelude"
14
17
, " psci-support"
15
18
, " strings"
19
+ , " tailrec"
16
20
, " transformers"
21
+ , " tuples"
17
22
, " unicode"
18
23
]
19
24
, packages = ./ packages. dhall
Original file line number Diff line number Diff line change @@ -103,9 +103,9 @@ derive newtype instance monadErrorParserT :: Monad m => MonadError ParseError (P
103
103
104
104
instance altParserT :: Monad m => Alt (ParserT s m ) where
105
105
alt p1 p2 = (ParserT <<< ExceptT <<< StateT ) \(s@(ParseState i p _)) -> do
106
- Tuple e s'@(ParseState i' p' c') <- runStateT (runExceptT (unwrap p1)) (ParseState i p false )
106
+ Tuple e s'@(ParseState _ _ c') <- runStateT (runExceptT (unwrap p1)) (ParseState i p false )
107
107
case e of
108
- Left err
108
+ Left _
109
109
| not c' -> runStateT (runExceptT (unwrap p2)) s
110
110
_ -> pure (Tuple e s')
111
111
Original file line number Diff line number Diff line change @@ -186,8 +186,8 @@ skipMany p = skipMany1 p <|> pure unit
186
186
-- | Skip at least one instance of a phrase.
187
187
skipMany1 :: forall s a m . Monad m => ParserT s m a -> ParserT s m Unit
188
188
skipMany1 p = do
189
- x <- p
190
- xs <- skipMany p
189
+ _ <- p
190
+ _ <- skipMany p
191
191
pure unit
192
192
193
193
-- | Fail if the specified parser matches.
Original file line number Diff line number Diff line change @@ -48,6 +48,10 @@ module Text.Parsing.Indent
48
48
, (<*/>)
49
49
, indentOp
50
50
, (<?/>)
51
+ , indentBrackets
52
+ , indentAngles
53
+ , indentBraces
54
+ , indentParens
51
55
, Optional (..)
52
56
) where
53
57
Original file line number Diff line number Diff line change @@ -56,7 +56,7 @@ token tokpos = do
56
56
case List .uncons input of
57
57
Nothing -> fail " Unexpected EOF"
58
58
Just { head, tail } -> do
59
- modify_ \(ParseState _ position _) ->
59
+ modify_ \(ParseState _ _ _) ->
60
60
ParseState tail (tokpos head) true
61
61
pure head
62
62
Original file line number Diff line number Diff line change @@ -500,7 +500,7 @@ main = do
500
500
501
501
case runParser " aa" p of
502
502
Right _ -> assert' " error: ParseError expected!" false
503
- Left (ParseError message pos ) -> do
503
+ Left (ParseError message _ ) -> do
504
504
let messageExpected = " context1 context2 Expected \" b\" "
505
505
assert' (" expected message: " <> messageExpected <> " , message: " <> message) (message == messageExpected)
506
506
logShow messageExpected
You can’t perform that action at this time.
0 commit comments