Get rid of redundant parentheses

This commit is contained in:
Maciej Bendkowski 2022-03-20 19:15:16 +01:00
parent b74fb6e5fe
commit e85e894f41

View File

@ -72,7 +72,7 @@ collectFromDataTypeInfo ::
DatatypeInfo ->
Q Types
collectFromDataTypeInfo types info =
case name `Map.lookup` (regTypes types) of
case name `Map.lookup` regTypes types of
Just _ -> pure types
Nothing -> foldM collectTypesFromCons types' (datatypeCons info)
where