diff options
| author | sven.panne@aedion.de <unknown> | 2007-03-14 12:36:08 +0000 |
|---|---|---|
| committer | sven.panne@aedion.de <unknown> | 2007-03-14 12:36:08 +0000 |
| commit | 7f3ce06a1a2840c52d6f5bf1bcd09cffe1f80d28 (patch) | |
| tree | 07a416c959ec21013c7e1280728a50894886483f /utils/genprimopcode | |
| parent | be18544c3e59cab7f76bf3d07fe6aa27cf157b02 (diff) | |
| download | haskell-7f3ce06a1a2840c52d6f5bf1bcd09cffe1f80d28.tar.gz | |
Warning police: Don't rely on defaulting
Diffstat (limited to 'utils/genprimopcode')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 4a4aac9c10..5bc6ade8eb 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -371,7 +371,7 @@ gen_primop_list (Info _ entries) gen_primop_tag :: Info -> String gen_primop_tag (Info _ entries) - = unlines (max_def : zipWith f primop_entries [1..]) + = unlines (max_def : zipWith f primop_entries [1 :: Int ..]) where primop_entries = filter is_primop entries f i n = "tagOf_PrimOp " ++ cons i |