runAction :: Action () -> [NSIS]
runAction (Action act) = stream $ execState act s0
    where s0 = S 1 [] [("NSISDIR",(tyString,[Builtin "{NSISDIR}"])):[(x, (tyString, [Builtin x])) | x <- builtin]]
runAction :: Action () -> [NSIS]
runAction (Action act) = stream $ execState act s0
    where s0 = S 1 [] [("NSISDIR",(tyString,[Builtin "{NSISDIR}"])):[(x, (tyString, [Builtin x])) | x <- builtin]]
runAction (Action act) = stream $ execState act s0
    where s0 = S 1 [] [("NSISDIR",(tyString,[Builtin "{NSISDIR}"])):[(x, (tyString, [Builtin x])) | x <- builtin]]