RosettaCodeData/Task/Introspection/Haskell/introspection.hs

9 lines
198 B
Haskell

import Data.Version
import Control.Monad
import System.Info
minGHCVersion = Version [6, 8] []
main = when (compilerName == "ghc" && compilerVersion < minGHCVersion) $
fail "Compiler too old."