-
Notifications
You must be signed in to change notification settings - Fork 0
/
notes.txt
42 lines (40 loc) · 1.18 KB
/
notes.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
runIdentity (runErrorT (scanRegexpChars NormalState "\\.?[0-9]([a-zA-Z_0-9.]|[eEpP][+\\-])*")) :: Either RegexpParseError [RegexpChar Char]
Right [Normal '.',
Special '?',
Special '[',
Normal '0',
Special '-',
Normal '9',
Special ']',
Normal '(',
Special '[',
Normal 'a',
Special '-',
Normal 'z',
Normal 'A',
Special '-',
Normal 'Z',
Normal '_',
Normal '0',
Special '-',
Normal '9',
Normal '.',
Special ']',
Special '|',
Special '[',
Normal 'e',
Normal 'E',
Normal 'p',
Normal 'P',
Special ']',
Special '[',
Normal '+',
Normal '-',
Special ']',
Normal ')',
Special '*']
parseRegexp "\\.?[0-9]([a-zA-Z_0-9.]|[eEpP][+\\-])*" [] :: Either String (Regexp Char)
Right Sequence [ZeroOrOne (EnumSet[('.','.')]),
EnumSet[('0','9')],
ZeroOrMore (Grouped (Sequence [Alternation [Sequence [EnumSet[('.','.'),('0','9'),('A','Z'),('_','_'),('a','z')]],
Sequence [EnumSet[('E','E'),('P','P'),('e','e'),('p','p')],EnumSet[('+','+'),('-','-')]]]]))]