------------------------------------------------------------------------------- {-# LANGUAGE CPP #-} ------------------------------------------------------------------------------- module Blah ( run_tests ) where ------------------------------------------------------------------------------- #if NEW_IMPROVED_PATTERN_GRAMMAR -- XXX will find a solution not involving redundancy shortly. -- There's no reason to offer the braces versions in tests actually. -- But note that then the tests won't work in braces mode... Must warn. #if USE_CURLY_BRACE_INSTEAD_OF_PAREN_FOR_SUBPATTERNS #error To run the tests, you must build with the flag USE_CURLY_BRACE_INSTEAD_OF_PAREN_FOR_SUBPATTERNS set False (the default). --import Blah_new_grammar_braces #else import Blah_new_grammar #endif #else import Blah_old_grammar #endif -------------------------------------------------------------------------------