Merge pull request #1002 from purescript/365
Fix #365
commit879a0305c84bc7d6d8e7725b255903202a8420e5
authorPhil Freeman <paf31@cantab.net>
dateWed 25 Mar 2015, 12:25 (12 years ago)
parent35462a0539f2b1
examples/failing/365.pursnew file+11
@@ -0,0 +1,11 @@
1+module Main where
2+
3+class C a where
4+ f :: a -> a
5+ g :: a -> a
6+
7+instance cS :: C String where
8+ f s = s
9+ g = f
10+
11+main = g "Done"
examples/failing/TypeSynonyms5.pursnew file+3
@@ -0,0 +1,3 @@
1+module Main where
2+
3+type T = T
src/Language/PureScript/Sugar/BindingGroups.hs−1
@@ -157,7 +157,6 @@ getProperName _ = error "Expected DataDeclaration"
157157--
158158toBindingGroup :: (Functor m, MonadError MultipleErrors m) => ModuleName -> SCC Declaration -> m 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