diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-04-30 00:47:07 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-04-30 00:47:07 +0200 |
commit | 1fd867e5beea5b4197f300e2e964c0f6b0035830 (patch) | |
tree | 61102cad73ffc7efdbf4ebf589f8ebd7720b3f82 /testdata/data.out | |
parent | b08f6a129c452526b7c2667dcd629028d66ebf0a (diff) |
fix pretty print syntax
Diffstat (limited to 'testdata/data.out')
-rw-r--r-- | testdata/data.out | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/testdata/data.out b/testdata/data.out index ac7874a8..3a093bbe 100644 --- a/testdata/data.out +++ b/testdata/data.out | |||
@@ -2,27 +2,27 @@ main is not found | |||
2 | ------------ trace | 2 | ------------ trace |
3 | 'Data0 :: [32mType[0m | 3 | 'Data0 :: [32mType[0m |
4 | Data0 :: [32m'Data0[0m | 4 | Data0 :: [32m'Data0[0m |
5 | 'Data0Case :: [32m([32ma[0;32m :: 'Data0 -> Type) -> [32m[32ma[0;32m [32mData0[0;32m[0;32m -> ([32mb[0;32m :: 'Data0) -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m | 5 | 'Data0Case :: [32mforall (a :: 'Data0 -> Type) -> [32m[32ma[0;32m [32mData0[0;32m[0;32m -> forall (b :: 'Data0) -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m |
6 | match'Data0 :: [32m([32ma[0;32m :: Type -> Type) -> [32m[32ma[0;32m [32m'Data0[0;32m[0;32m -> ([32mb[0;32m :: Type) -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m | 6 | match'Data0 :: [32mforall (a :: Type -> Type) -> [32m[32ma[0;32m [32m'Data0[0;32m[0;32m -> forall b -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m |
7 | 'Data1 :: [32mType -> Type -> Type -> Type[0m | 7 | 'Data1 :: [32mType -> Type -> Type -> Type[0m |
8 | Data1 :: [32mforall a b c . [32ma[0;32m -> [32mb[0;32m -> [32mc[0;32m -> 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m | 8 | Data1 :: [32mforall a b c . [32ma[0;32m -> [32mb[0;32m -> [32mc[0;32m -> 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m |
9 | 'Data1Case :: [32mforall a b c . ([32md[0;32m :: 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> Type) -> (([32me[0;32m :: [32ma[0;32m) -> ([32mf[0;32m :: [32mb[0;32m) -> ([32mg[0;32m :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data1 [32me[0;32m [32mf[0;32m [32mg[0;32m)[0;32m[0;32m) -> ([32mh[0;32m :: 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m) -> [32m[32md[0;32m [32m[32mh[0;32m[0;32m[0;32m[0m | 9 | 'Data1Case :: [32mforall a b c . forall (d :: 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> Type) -> (forall (e :: [32ma[0;32m) (f :: [32mb[0;32m) (g :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data1 [32me[0;32m [32mf[0;32m [32mg[0;32m)[0;32m[0;32m) -> forall (h :: 'Data1 [32ma[0;32m [32mb[0;32m [32mc[0;32m) -> [32m[32md[0;32m [32m[32mh[0;32m[0;32m[0;32m[0m |
10 | match'Data1 :: [32m([32ma[0;32m :: Type -> Type) -> (([32mb[0;32m :: Type) -> ([32mc[0;32m :: Type) -> ([32md[0;32m :: Type) -> [32m[32ma[0;32m [32m('Data1 [32mb[0;32m [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> ([32me[0;32m :: Type) -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m[0m | 10 | match'Data1 :: [32mforall (a :: Type -> Type) -> (forall b c d -> [32m[32ma[0;32m [32m('Data1 [32mb[0;32m [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> forall e -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m[0m |
11 | 'Data2 :: [32mType[0m | 11 | 'Data2 :: [32mType[0m |
12 | Data21 :: [32m'Int -> 'Data2[0m | 12 | Data21 :: [32m'Int -> 'Data2[0m |
13 | Data22 :: [32m'Int -> 'Int -> 'Data2[0m | 13 | Data22 :: [32m'Int -> 'Int -> 'Data2[0m |
14 | Data23 :: [32m'Int -> 'Data2[0m | 14 | Data23 :: [32m'Int -> 'Data2[0m |
15 | Data24 :: [32m'Data2[0m | 15 | Data24 :: [32m'Data2[0m |
16 | 'Data2Case :: [32m([32ma[0;32m :: 'Data2 -> Type) -> (([32mb[0;32m :: 'Int) -> [32m[32ma[0;32m [32m(Data21 [32mb[0;32m)[0;32m[0;32m) -> (([32mc[0;32m :: 'Int) -> ([32md[0;32m :: 'Int) -> [32m[32ma[0;32m [32m(Data22 [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> (([32me[0;32m :: 'Int) -> [32m[32ma[0;32m [32m(Data23 [32me[0;32m)[0;32m[0;32m) -> [32m[32ma[0;32m [32mData24[0;32m[0;32m -> ([32mf[0;32m :: 'Data2) -> [32m[32ma[0;32m [32m[32mf[0;32m[0;32m[0;32m[0m | 16 | 'Data2Case :: [32mforall (a :: 'Data2 -> Type) -> (forall (b :: 'Int) -> [32m[32ma[0;32m [32m(Data21 [32mb[0;32m)[0;32m[0;32m) -> (forall (c :: 'Int) (d :: 'Int) -> [32m[32ma[0;32m [32m(Data22 [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> (forall (e :: 'Int) -> [32m[32ma[0;32m [32m(Data23 [32me[0;32m)[0;32m[0;32m) -> [32m[32ma[0;32m [32mData24[0;32m[0;32m -> forall (f :: 'Data2) -> [32m[32ma[0;32m [32m[32mf[0;32m[0;32m[0;32m[0m |
17 | match'Data2 :: [32m([32ma[0;32m :: Type -> Type) -> [32m[32ma[0;32m [32m'Data2[0;32m[0;32m -> ([32mb[0;32m :: Type) -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m | 17 | match'Data2 :: [32mforall (a :: Type -> Type) -> [32m[32ma[0;32m [32m'Data2[0;32m[0;32m -> forall b -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32mb[0;32m[0;32m[0;32m[0m |
18 | x :: [32m'Data2 -> 'Int[0m | 18 | x :: [32m'Data2 -> 'Int[0m |
19 | y :: [32m'Data2 -> 'Int[0m | 19 | y :: [32m'Data2 -> 'Int[0m |
20 | 'Data5 :: [32mType -> Type -> Type -> Type[0m | 20 | 'Data5 :: [32mType -> Type -> Type -> Type[0m |
21 | Data51 :: [32mforall a b c . [32ma[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m | 21 | Data51 :: [32mforall a b c . [32ma[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m |
22 | Data52 :: [32mforall a b c . [32ma[0;32m -> [32mb[0;32m -> [32mc[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m | 22 | Data52 :: [32mforall a b c . [32ma[0;32m -> [32mb[0;32m -> [32mc[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m |
23 | Data53 :: [32mforall a b c . 'Int -> [32ma[0;32m -> 'Float -> [32mb[0;32m -> [32mc[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m | 23 | Data53 :: [32mforall a b c . 'Int -> [32ma[0;32m -> 'Float -> [32mb[0;32m -> [32mc[0;32m -> 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m[0m |
24 | 'Data5Case :: [32mforall a b c . ([32md[0;32m :: 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> Type) -> (([32me[0;32m :: [32ma[0;32m) -> [32m[32md[0;32m [32m(Data51 [32me[0;32m)[0;32m[0;32m) -> (([32mf[0;32m :: [32ma[0;32m) -> ([32mg[0;32m :: [32mb[0;32m) -> ([32mh[0;32m :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data52 [32mf[0;32m [32mg[0;32m [32mh[0;32m)[0;32m[0;32m) -> (([32mi[0;32m :: 'Int) -> ([32mj[0;32m :: [32ma[0;32m) -> ([32mk[0;32m :: 'Float) -> ([32ml[0;32m :: [32mb[0;32m) -> ([32mm[0;32m :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data53 [32mi[0;32m [32mj[0;32m [32mk[0;32m [32ml[0;32m [32mm[0;32m)[0;32m[0;32m) -> ([32mn[0;32m :: 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m) -> [32m[32md[0;32m [32m[32mn[0;32m[0;32m[0;32m[0m | 24 | 'Data5Case :: [32mforall a b c . forall (d :: 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> Type) -> (forall (e :: [32ma[0;32m) -> [32m[32md[0;32m [32m(Data51 [32me[0;32m)[0;32m[0;32m) -> (forall (f :: [32ma[0;32m) (g :: [32mb[0;32m) (h :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data52 [32mf[0;32m [32mg[0;32m [32mh[0;32m)[0;32m[0;32m) -> (forall (i :: 'Int) (j :: [32ma[0;32m) (k :: 'Float) (l :: [32mb[0;32m) (m :: [32mc[0;32m) -> [32m[32md[0;32m [32m(Data53 [32mi[0;32m [32mj[0;32m [32mk[0;32m [32ml[0;32m [32mm[0;32m)[0;32m[0;32m) -> forall (n :: 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m) -> [32m[32md[0;32m [32m[32mn[0;32m[0;32m[0;32m[0m |
25 | match'Data5 :: [32m([32ma[0;32m :: Type -> Type) -> (([32mb[0;32m :: Type) -> ([32mc[0;32m :: Type) -> ([32md[0;32m :: Type) -> [32m[32ma[0;32m [32m('Data5 [32mb[0;32m [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> ([32me[0;32m :: Type) -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m[0m | 25 | match'Data5 :: [32mforall (a :: Type -> Type) -> (forall b c d -> [32m[32ma[0;32m [32m('Data5 [32mb[0;32m [32mc[0;32m [32md[0;32m)[0;32m[0;32m) -> forall e -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m -> [32m[32ma[0;32m [32m[32me[0;32m[0;32m[0;32m[0m |
26 | a5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32ma[0;32m[0m | 26 | a5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32ma[0;32m[0m |
27 | b5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32mb[0;32m[0m | 27 | b5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32mb[0;32m[0m |
28 | c5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32mc[0;32m[0m | 28 | c5 :: [32mforall a b c . 'Data5 [32ma[0;32m [32mb[0;32m [32mc[0;32m -> [32mc[0;32m[0m |