summaryrefslogtreecommitdiff
path: root/src/Transfer/Syntax/Lex.hs
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2005-11-29 18:16:33 +0000
committerbringert <bringert@cs.chalmers.se>2005-11-29 18:16:33 +0000
commit9a2dea46d103d180c3b0e0780df4f10a8a16f386 (patch)
treef3ddcb3dcff372f877241330301d0fd21a614e72 /src/Transfer/Syntax/Lex.hs
parent5b9249a422cb1ac172d6b5f1f03d5cde629d6216 (diff)
Use rec and sig for records.
Diffstat (limited to 'src/Transfer/Syntax/Lex.hs')
-rw-r--r--src/Transfer/Syntax/Lex.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Transfer/Syntax/Lex.hs b/src/Transfer/Syntax/Lex.hs
index 86f366166..3a6305200 100644
--- a/src/Transfer/Syntax/Lex.hs
+++ b/src/Transfer/Syntax/Lex.hs
@@ -84,7 +84,7 @@ eitherResIdent tv s = treeFind resWords
| s > a = treeFind right
| s == a = t
-resWords = b "import" (b "derive" (b "case" (b "Type" N N) (b "data" N N)) (b "if" (b "else" N N) N)) (b "of" (b "let" (b "in" N N) N) (b "where" (b "then" N N) N))
+resWords = b "in" (b "derive" (b "case" (b "Type" N N) (b "data" N N)) (b "if" (b "else" N N) (b "import" N N))) (b "sig" (b "of" (b "let" N N) (b "rec" N N)) (b "where" (b "then" N N) N))
where b s = B s (TS s)
unescapeInitTail :: String -> String