@@ -45,7 +45,7 @@ parseObject :: TokenParser Type
45parseObject = braces $ TypeApp tyObject <$> parseRow
45parseObject = braces $ TypeApp tyObject <$> parseRow
47parseTypeWildcard :: TokenParser Type
47parseTypeWildcard :: TokenParser Type
48−parseTypeWildcard = reserved "_" >> return TypeWildcard
48+parseTypeWildcard = underscore >> return TypeWildcard
50parseTypeVariable :: TokenParser Type
50parseTypeVariable :: TokenParser Type
51parseTypeVariable = do
51parseTypeVariable = do