@@ -157,7 +157,6 @@ getProperName _ = error "Expected DataDeclaration"
157157--
158158toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
159159toBindingGroup _ (AcyclicSCC d) = return d
160−toBindingGroup _ (CyclicSCC [d]) = return d
161160toBindingGroup moduleName (CyclicSCC ds') =
162161 -- Once we have a mutually-recursive group of declarations, we need to sort
163162 -- them further by their immediate dependencies (those outside function
@@ -187,7 +186,6 @@ toBindingGroup moduleName (CyclicSCC ds') =
187186 cycleError d ds@(_:_) = rethrow (<> mkErrorStack ("The following are not yet defined here: " ++ unwords (map (show . getIdent) ds)) Nothing) $ cycleError d []
188187 cycleError _ _ = error "Expected ValueDeclaration"
189188
190−
191189toDataBindingGroup :: SCC Declaration -> Either ErrorStack Declaration
192190toDataBindingGroup (AcyclicSCC d) = return d
193191toDataBindingGroup (CyclicSCC [d]) = case isTypeSynonym d of