@@ -151,7 +151,6 @@ getProperName _ = error "Expected DataDeclaration"
152toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
152toBindingGroup :: ModuleName -> SCC Declaration -> Either ErrorStack Declaration
153toBindingGroup _ (AcyclicSCC d) = return d
153toBindingGroup _ (AcyclicSCC d) = return d
154−toBindingGroup _ (CyclicSCC [d]) = return d
155toBindingGroup moduleName (CyclicSCC ds') =
154toBindingGroup moduleName (CyclicSCC ds') =
156 -- Once we have a mutually-recursive group of declarations, we need to sort
155 -- Once we have a mutually-recursive group of declarations, we need to sort
157 -- them further by their immediate dependencies (those outside function
156 -- them further by their immediate dependencies (those outside function