diff options
| author | krasimir <krasimir@chalmers.se> | 2010-02-16 21:47:58 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-02-16 21:47:58 +0000 |
| commit | 32f9499f2e7403d7f48887ebdb30e2eddeb8199a (patch) | |
| tree | ca7e366112fa85e3f98df9401cbba7902e602b32 /src/runtime/haskell/PGF/Printer.hs | |
| parent | 19b17dceb6a1882ee779e75b9703d7fd2b93cc95 (diff) | |
fix the PGF printer for abstract
Diffstat (limited to 'src/runtime/haskell/PGF/Printer.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Printer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Printer.hs b/src/runtime/haskell/PGF/Printer.hs index d458eb1a7..d3ce0469e 100644 --- a/src/runtime/haskell/PGF/Printer.hs +++ b/src/runtime/haskell/PGF/Printer.hs @@ -25,7 +25,7 @@ ppAbs name a = text "abstract" <+> ppCId name <+> char '{' $$ char '}' ppCat :: CId -> [Hypo] -> Doc -ppCat c hyps = text "cat" <+> ppCId c <+> hsep (snd (mapAccumL ppHypo [] hyps)) +ppCat c hyps = text "cat" <+> ppCId c <+> hsep (snd (mapAccumL (ppHypo 4) [] hyps)) ppFun :: CId -> (Type,Int,Maybe [Equation]) -> Doc ppFun f (t,_,Just eqs) = text "fun" <+> ppCId f <+> colon <+> ppType 0 [] t $$ |