15 lines
358 B
Haskell
15 lines
358 B
Haskell
|
module Lang where
|
||
|
|
|
||
|
|
import Control.Applicative
|
||
|
|
import Param
|
||
|
|
import System.IO
|
||
|
|
import System.Process
|
||
|
|
|
||
|
|
listLanguages :: Options -> IO String
|
||
|
|
listLanguages opt = convert opt . lines <$> getLangs opt
|
||
|
|
|
||
|
|
getLangs :: Options -> IO String
|
||
|
|
getLangs opt = do
|
||
|
|
(_,hout,_,_) <- runInteractiveProcess (ghc opt) ["--supported-languages"] Nothing Nothing
|
||
|
|
hGetContents hout
|