c2hs-0.18.2: tests/bugs/issue-79/Issue79.chs

module Main where

import Control.Monad (forM_)

#include "issue79.h"

{#enum foo as Foo {underscoreToCase} deriving (Eq, Show)#}

main :: IO ()
main = do
  forM_ [A, B, C, D] $ \v ->
    putStrLn $ show v ++ "=" ++ (show $ fromEnum v)