From 363c6dbf82e99925d2017831c04ca7bda6b9105c Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 17 Aug 2019 16:02:22 -0400 Subject: Committing stale code. --- monkeypatch.hs | 5 +++-- 1 file 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 _ = [] -- cgit v1.2.3