在 Haskell 中创建自定义标志答案

【问题标题】：Create custom flags in Haskell在 Haskell 中创建自定义标志
【发布时间】：2020-10-03 18:30:55
【问题描述】：

我有一个测试套件，它使用两个后端运行相同的测试用例：内存中的一个和真实的，我正在尝试创建一个仅在存在标志时才运行真实的函数。

我在 Prelude 中时不时看到它，但我无法让它发挥作用。

我或多或少会如下：

onFullSuite :: Spec -> Spec
#if defined(RUN_FULL_SUITE)
onFullSuite = id
#else
onFullSuite = xdescribe "Only on full test suite run"
#endif

你对缺失的部分有什么提示吗？

【问题讨论】：

你如何编译这个？
你在文件头添加{-# LANGUAGE CPP #-}了吗？

标签： haskell compilation compiler-flags hpack

【解决方案1】：

这是一个两步过程：

创建一个阴谋集团旗帜
有条件地定义为ghc-option

flags:
  run-full-suite:
    manual: true
    default: false


library:
  source-dirs: src
  when:
  - condition: (flag(run-full-suite))
    then:
      cpp-options: -DRUN_FULL_SUITE
    else: {}

【讨论】：