[commit: ghc] master: Add type signatures. (4d0e4fe)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56/ghc

>---------------------------------------------------------------

commit 4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56
Author: Geoffrey Mainland <mainland at apeiron.net>
Date:   Thu Jan 28 09:58:28 2016 -0500

    Add type signatures.


>---------------------------------------------------------------

4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56
 utils/genapply/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs
index d01b025..50904ea 100644
--- a/utils/genapply/Main.hs
+++ b/utils/genapply/Main.hs
@@ -580,6 +580,7 @@ argRep V32 = text "V32_"
 argRep V64 = text "V64_"
 argRep _   = text "W_"
 
+genApply :: RegStatus -> [ArgRep] -> Doc
 genApply regstatus args =
    let
     fun_ret_label  = mkApplyRetName args
@@ -776,6 +777,7 @@ genApply regstatus args =
 -- -----------------------------------------------------------------------------
 -- Making a fast unknown application, args are in regs
 
+genApplyFast :: RegStatus -> [ArgRep] -> Doc
 genApplyFast regstatus args =
    let
     fun_fast_label = mkApplyFastName args