diff options
| author | Simon Hengel <sol@typeful.net> | 2013-09-03 19:14:08 +0200 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-01-12 14:48:35 -0600 |
| commit | 27876dc77ff259e27a71ea6f30662a668adfd134 (patch) | |
| tree | b8f1784867200ae07a136078dfa14b50271a4476 /html-test/src/Bug8.hs | |
| parent | 64eb7dbc465ffea7f7e76f9d4c3a334380cce8ac (diff) | |
Don't append newline to parseString input
We also check that we have parsed everything with endOfInput.
Diffstat (limited to 'html-test/src/Bug8.hs')
| -rw-r--r-- | html-test/src/Bug8.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/html-test/src/Bug8.hs b/html-test/src/Bug8.hs index 18df63c8..e569b01d 100644 --- a/html-test/src/Bug8.hs +++ b/html-test/src/Bug8.hs @@ -3,10 +3,10 @@ module Bug8 where infix --> infix ---> -data Typ = Type (String,[Typ]) - | TFree (String, [String]) +data Typ = Type (Typ,[Typ]) + | TFree (Typ, [Typ]) -x --> y = Type("fun",[s,t]) +x --> y = Type(s,[s,t]) (--->) = flip $ foldr (-->) s = undefined |