bugfix in PGF.Type.pType: Agda style types like {x : A} -> B should not be supported in GF

src/runtime/haskell/PGF/Type.hs

@@ -67,21 +67,16 @@ pType = do
       do (cat,args) <- pAtom
          return [(Explicit,wildCId,DTyp [] cat args)]
       RP.<++
-      (RP.between (RP.char '(') (RP.char ')') $ do
+      do RP.between (RP.char '(') (RP.char ')') pHypoBinds
-         xs <- RP.option [(Explicit,wildCId)] $ do
+
-                     xs <- pBinds
+pHypoBinds = do
-                     RP.skipSpaces
+   xs <- RP.option [(Explicit,wildCId)] $ do
-                     RP.char ':'
+               xs <- pBinds
-                     return xs
+               RP.skipSpaces
-         ty <- pType
+               RP.char ':'
-         return [(b,v,ty) | (b,v) <- xs])
+               return xs
-      RP.<++
+   ty <- pType
-      (RP.between (RP.char '{') (RP.char '}') $ do
+   return [(b,v,ty) | (b,v) <- xs]
-         vs <- RP.sepBy1 (RP.skipSpaces >> pCId) (RP.skipSpaces >> RP.char ',')
-         RP.skipSpaces
-         RP.char ':'
-         ty <- pType
-         return [(Implicit,v,ty) | v <- vs])
 
     pAtom = do
       cat <- pCId