Fix purescript#1072

paf31 · paf31 · commit e350fea840c4 · 2015-10-28T16:49:16.000-07:00
diff --git a/examples/failing/EmptyClass.purs b/examples/failing/EmptyClass.purs
@@ -0,0 +1,7 @@
+-- @shouldFailWith ErrorParsingModule
+module Main where
+
+class Foo x where
+
+bar :: String
+bar = "hello"
diff --git a/examples/passing/NakedConstraint.purs b/examples/passing/NakedConstraint.purs
@@ -2,7 +2,7 @@ module Main where
 
 import Control.Monad.Eff.Console
 
-class Partial where
+class Partial 
 
 data List a = Nil | Cons a (List a)
 
diff --git a/src/Language/PureScript/Parser/Declarations.hs b/src/Language/PureScript/Parser/Declarations.hs
@@ -201,7 +201,7 @@ parseTypeClassDeclaration = do
   idents <- P.many (indented *> kindedIdent)
   members <- P.option [] . P.try $ do
     indented *> reserved "where"
-    mark (P.many (same *> positioned parseTypeDeclaration))
+    indented *> mark (P.many (same *> positioned parseTypeDeclaration))
   return $ TypeClassDeclaration className idents implies members
 
 parseInstanceDeclaration :: TokenParser (TypeInstanceBody -> Declaration)
