testsuite/tests/driver/FullGHCVersion.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE CPP #-}

module Main where

main :: IO ()
#if defined(__GLASGOW_HASKELL_FULL_VERSION__)
main = putStrLn "__GLASGOW_HASKELL_FULL_VERSION__ is well-defined!"
#else
main = putStrLn "__GLASGOW_HASKELL_FULL_VERSION__ is not defined!"
#endif