lib: doubledatespanp: fix and re-enable doctest
This commit is contained in:
		
							parent
							
								
									dc41cee2b0
								
							
						
					
					
						commit
						ccac09fb1b
					
				| @ -979,8 +979,8 @@ periodexprdatespanp rdate = choice $ map try [ | ||||
|                            ] | ||||
| 
 | ||||
| -- | | ||||
| -- -- >>> parsewith (doubledatespan (parsedate "2018/01/01") <* eof) "20180101-201804" | ||||
| -- Right DateSpan 2018-01-01..2018-04-01 | ||||
| -- >>> parsewith (doubledatespanp (parsedate "2018/01/01") <* eof) "20180101-201804" | ||||
| -- Right DateSpan 2018Q1 | ||||
| doubledatespanp :: Day -> TextParser m DateSpan | ||||
| doubledatespanp rdate = liftA2 fromToSpan | ||||
|     (optional (string' "from" *> skipNonNewlineSpaces) *> smartdate) | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user