Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Only optimize when assembling.

  • Loading branch information...
commit 0f4a92694542e7fafed6fa6caca7bd194f341e6a 1 parent 6a7c1a3
@amtal authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 Main.hs
View
4 Main.hs
@@ -35,7 +35,9 @@ main = do
case instr of
Just is -> return is
Nothing -> exitFailure -- parser already printed messages
- optimize opts is = if noOptimization opts then is else sizeVariant is
+ optimize opts is = if runMode opts/=Assemble || noOptimization opts
+ then is
+ else sizeVariant is
processOutput opts instr = case runMode opts of
Assemble -> binEncoding . assemble $ instr
_ -> packNlEof $ pprint instr
Please sign in to comment.
Something went wrong with that request. Please try again.