Committing stale code.

1 files changed, 3 insertions, 2 deletions

diff --git a/monkeypatch.hs b/monkeypatch.hs
index 5ef58da..d6ff1c2 100644
--- a/monkeypatch.hs
+++ b/monkeypatch.hs
@@ -724,7 +724,7 @@ grokStatement fe (CBlockStmt (CWhile cond (CCompound [] bdy _) isDoWhile _)) = d
         x = foldr applyComputation c' ss -- continue function
         vs = [] -- Map.keys $ compIntro g
     fin <- StateT $ return . genUnique
-    return $ fmap (FormalLambda fin) $ fmap (factorOutFunction "continue" vs (comp x) (hsvar " continue")) g
+    return $ fmap (FormalLambda fin . factorOutFunction "continue" vs (comp x) (hsvar " continue")) g
 grokStatement fe _ = mzero
 
 isFunctionDecl :: CExternalDeclaration a -> Bool
@@ -988,9 +988,10 @@ hsTypeSpec (CTypeSpec (CTypeDef ctyp _))                                   = [ L
 hsTypeSpec (CTypeSpec (CBoolType _))                                       = [ Right "Bool"]
 hsTypeSpec (CTypeSpec (CIntType  _))                                       = [ Right "Int"]
 hsTypeSpec (CTypeSpec (CCharType _))                                       = [ Right "Char"]
+hsTypeSpec (CTypeSpec (CDoubleType _))                                     = [ Right "Double"]
 hsTypeSpec (CTypeSpec (CSUType (CStruct CStructTag mctyp Nothing [] _) _)) = maybeToList $ fmap Left mctyp
 
-hsTypeSpec (CTypeSpec unhandled) = [] -- trace ("hsTypeSpec unhandled: "++ show (const () <$> unhandled)) $ []
+hsTypeSpec (CTypeSpec unhandled) = trace ("hsTypeSpec unhandled: "++ show (const () <$> unhandled)) $ []
 hsTypeSpec _ = []