@@ -157,7 +157,6 @@ getProperName _ = error "Expected DataDeclaration"
158toBindingGroup :: (Functor m, MonadError MultipleErrors m) => ModuleName -> SCC Declaration -> m Declaration
158toBindingGroup :: (Functor m, MonadError MultipleErrors m) => ModuleName -> SCC Declaration -> m Declaration
159toBindingGroup _ (AcyclicSCC d) = return d
159toBindingGroup _ (AcyclicSCC d) = return d
160−toBindingGroup _ (CyclicSCC [d]) = return d
161toBindingGroup moduleName (CyclicSCC ds') =
160toBindingGroup moduleName (CyclicSCC ds') =
162 -- Once we have a mutually-recursive group of declarations, we need to sort
161 -- Once we have a mutually-recursive group of declarations, we need to sort
163 -- them further by their immediate dependencies (those outside function
162 -- them further by their immediate dependencies (those outside function