Commit fbac8d95 authored by Artem Alimarine's avatar Artem Alimarine
Browse files

fixed a bug in parsing the "of" token after dynamic type, e.g.:

   case dynamic 1 :: Int of ...
parent efeec5f9
......@@ -466,7 +466,8 @@ where
# (token, pState) = nextToken FunctionContext pState
= case token of
GenericOpenToken // generic function
# (type, pState) = wantType pState
//# (type, pState) = wantType pState
# (ok, {at_type=type}, pState) = trySimpleType TA_None pState
# (ident, pState) = stringToIdent name (IC_GenericCase type) pState
# (type_CONS_ident, pState) = stringToIdent "CONS" IC_Type pState
# (type_FIELD_ident, pState)= stringToIdent "FIELD" IC_Type pState
......
......@@ -849,7 +849,7 @@ CheckTypeContext s input
"Dynamic" -> (DynamicTypeToken , input)
"special" -> (SpecialToken , input)
"from" -> (FromToken , input)
"of" -> (GenericOfToken , input) // AA
"of" -> (OfToken , input) // AA
s -> CheckEveryContext s input
CheckFunctContext :: !String !Input -> (!Token, !Input)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment