diff options
| author | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-14 10:53:23 +0100 |
|---|---|---|
| committer | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-14 10:53:23 +0100 |
| commit | ce2ea8274f72199ac32d5219fcadb0aaeb968707 (patch) | |
| tree | 34d0904a62e1f4922c842dff230c7c959c73f623 /compiler/main/HscStats.lhs | |
| parent | 8419203b7eb5aa4bb13f8d1263632de4d10a4048 (diff) | |
| download | haskell-ce2ea8274f72199ac32d5219fcadb0aaeb968707.tar.gz | |
Small fixes to the generics branch to get rid of warnings,
plus a false ASSERT failure
Diffstat (limited to 'compiler/main/HscStats.lhs')
| -rw-r--r-- | compiler/main/HscStats.lhs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/main/HscStats.lhs b/compiler/main/HscStats.lhs index a618cbcad2..d90262633c 100644 --- a/compiler/main/HscStats.lhs +++ b/compiler/main/HscStats.lhs @@ -159,13 +159,11 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _)) addpr :: (Int,Int) -> Int add2 :: (Int,Int) -> (Int,Int) -> (Int, Int) - add4 :: (Int,Int,Int,Int) -> (Int,Int,Int,Int) -> (Int, Int, Int, Int) add5 :: (Int,Int,Int,Int,Int) -> (Int,Int,Int,Int,Int) -> (Int, Int, Int, Int, Int) add6 :: (Int,Int,Int,Int,Int,Int) -> (Int,Int,Int,Int,Int,Int) -> (Int, Int, Int, Int, Int, Int) addpr (x,y) = x+y add2 (x1,x2) (y1,y2) = (x1+y1,x2+y2) - add4 (x1,x2,x3,x4) (y1,y2,y3,y4) = (x1+y1,x2+y2,x3+y3,x4+y4) add5 (x1,x2,x3,x4,x5) (y1,y2,y3,y4,y5) = (x1+y1,x2+y2,x3+y3,x4+y4,x5+y5) add6 (x1,x2,x3,x4,x5,x6) (y1,y2,y3,y4,y5,y6) = (x1+y1,x2+y2,x3+y3,x4+y4,x5+y5,x6+y6) \end{code} |