Add type signatures.
authorGeoffrey Mainland <mainland@apeiron.net>
Thu, 28 Jan 2016 14:58:28 +0000 (09:58 -0500)
committerGeoffrey Mainland <mainland@apeiron.net>
Sun, 31 Jan 2016 18:01:31 +0000 (13:01 -0500)
utils/genapply/Main.hs

index d01b025..50904ea 100644 (file)
@@ -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