Commit 24387e60 authored by pcapriotti's avatar pcapriotti

Fix warning on x86-64

parent 2c82539c
......@@ -465,14 +465,11 @@ liftLit f = do
[Lit lit] <- getArgs
return $ Lit (f lit)
removeOp :: RuleM CoreExpr
removeOp = do
[e] <- getArgs
return e
removeOp32 :: RuleM CoreExpr
#if WORD_SIZE_IN_BITS == 32
removeOp32 = removeOp
removeOp32 = do
[e] <- getArgs
return e
#else
removeOp32 = mzero
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment