[commit: ghc] ghc-8.0: Add type signatures. (b8c8d4c)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/b8c8d4c015a4b1d86cbe2b8c197d64a34ba0cc1c/ghc

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

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

    Add type signatures.
    
    (cherry picked from commit 4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56)


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

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

diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs
index e58a496..97028b3 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
@@ -778,6 +779,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