signatures

1 files changed, 3 insertions, 0 deletions

diff --git a/monkeypatch.hs b/monkeypatch.hs
index 7806f07..e4ccbc1 100644
--- a/monkeypatch.hs
+++ b/monkeypatch.hs
@@ -49,6 +49,7 @@ import Text.Show.Pretty
 
 import Comments
 
+trace :: p -> a -> a
 trace _ = id
 
 -- | Pretty print the given tranlation unit, but replace declarations from header files with @#include@ directives.
@@ -460,6 +461,7 @@ isFunctionDecl (CFDefExt (CFunDef _ _ _ (CCompound [] _ _) _)) = True
 isFunctionDecl _ = False
 
 
+cleanTree :: (Functor f, Data (f b)) => f b -> f Ordering
 cleanTree d = fmap (const LT) $ everywhere (mkT eraseNodeInfo) $ d
 
 transpile :: C2HaskellOptions -> FilePath -> IncludeStack -> CTranslationUnit NodeInfo -> IO ()
@@ -1172,6 +1174,7 @@ setBody bdy (CDeclExt (CDecl   xs ys pos))    = (CFDefExt (CFunDef xs v [] bdy p
                 _              -> CDeclr Nothing [] Nothing [] pos
 
 
+doesReturnValue :: [CDeclarationSpecifier a] -> Bool
 doesReturnValue (CTypeSpec (CVoidType _):_) = False
 doesReturnValue (x:xs)                      = doesReturnValue xs
 doesReturnValue []                          = True