Fix bug with MPTC instance parsing

Ignore-this: 30e447a771efb9661324e5a1ce89018e darcs-hash:20111212142433-e29d1-e426c42c10f170ea8fdd0336f248db7949780a4d.gz
adamgundry · Dec 12, 2011 · 2dabdbf · 2dabdbf
1 parent b0f903f
commit 2dabdbf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Language/Inch/Parser.lhs b/src/Language/Inch/Parser.lhs
@@ -428,7 +428,7 @@ Modules
 >     uncomma x = [x]
 > implyBits (STyApp f t) = do
 >     ([], s, ts) <- implyBits f
->     return ([], s, t:ts)
+>     return ([], s, ts ++ [t])
 > implyBits (STyCon c) = return ([], c, [])
 > implyBits _ = fail "ook"
 

diff --git a/tests/Main.lhs b/tests/Main.lhs
@@ -243,6 +243,7 @@
 >   "type String = [Char]" :
 >   "type F a b = b a" :
 >   "type F (a :: *) (b :: * -> *) = b a" :
+>   "instance N a 0 where" :
 >   []