mirror of
https://github.com/maciej-bendkowski/generic-boltzmann-brain.git
synced 2024-08-17 08:30:30 +03:00
Get rid of redundant parentheses
This commit is contained in:
parent
b74fb6e5fe
commit
e85e894f41
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user