tilia-0.1.0.0: corpora/vendored/other/cpp/macro-above-a-case-out.hs

{-# LANGUAGE CPP #-}

module Bounds.Check where

#if defined(ASSERTS)
#define CHECK(i) if (i) < 0 then error "negative index" else
#else
#define CHECK(i)
#endif

pick :: Int -> String
pick i =
  CHECK(i)
  case i of
    0 -> "zero"
    _ -> "more"