2010-11-17 03:27:23 +00:00
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
|
|
2010-04-02 05:40:06 +00:00
|
|
|
module Lang where
|
|
|
|
|
|
2010-04-27 01:29:29 +00:00
|
|
|
import DynFlags
|
2010-04-30 09:36:31 +00:00
|
|
|
import Types
|
2010-04-02 05:40:06 +00:00
|
|
|
|
|
|
|
|
listLanguages :: Options -> IO String
|
2010-11-17 03:27:23 +00:00
|
|
|
#if __GLASGOW_HASKELL__ >= 700
|
|
|
|
|
listLanguages opt = return $ convert opt supportedLanguagesAndExtensions
|
|
|
|
|
#else
|
2010-04-27 01:29:29 +00:00
|
|
|
listLanguages opt = return $ convert opt supportedLanguages
|
2010-11-17 03:27:23 +00:00
|
|
|
#endif
|
