Stack + IntelliJ IDEA + plugin haskforce + напильник

@Curry · Регистрация: 01.06.2013

Author24 — интернет-сервис помощи студентам

Решил я обновить инструменты. stack вместо cabal-а уже использую. Тут и IntelliJ IDEA 15-ая вышла. Решил обновиться, заодно и плагин для работы с haskell в IDEA другой попробовать. Плагин haskforce, хоть и не поддерживает отладку, зато, сказывают, лучше умные подсказки у него. И вообще, страничка ничего так. Решил поставить его.
Тут проблема. Во всех плагинах, что я видел, подразумевается использование cabal. А у меня stack. Решил написать такой псевдо cabal, который будет вызывать stack конвертируя команды в стековские. (Подозреваю, велосипед это трёхколёсный, и stack как то умнее к какому то IDE можно приспособить. Тем более что у него есть команды stack ide).
Однако продолжим. Устанавливаем stack-ом пакеты, которые плагину надо - (hlint,stylish-haskell, ghc-mod).
Дальше создаём проект (не в IDEA пока), компилируем "обманку".

Кликните здесь для просмотра всего текста

Haskell

module Main where
 
import System.Environment
import System.Process
import System.FilePath
import System.Directory
import System.Exit
 
{-
appLog:: String -> IO ()
appLog s = appendFile "d:\\samples\\Haskell\\tstStack\\stack-cabal\\out.txt" (s++"\n")
-}
 
runStack:: [String] -> IO ()
runStack args = do
        ePth <- (flip replaceBaseName "stack") <$> getExecutablePath
        (exitC,sOut,sErr) <- readProcessWithExitCode ePth args ""
        putStr sOut
        putStr sErr
--        appLog $ concat [ show args, "\n", sOut, "\n", sErr, "\n", show exitC]
        exitWith exitC
 
getExecFile :: IO (Maybe String)
getExecFile = do
    d  <- getCurrentDirectory
    dirC <- getDirectoryContents "."
    case filter ((".cabal"==).takeExtensions) dirC of
        [] -> do
            putStrLn $ "cabal file not found in current dir " ++ d
            return Nothing
        [p] -> return $ Just $ takeBaseName p
        _ -> do
            putStrLn $ "cabal file must be one in current dir " ++ d
            return Nothing
 
main :: IO ()
main = do
    args <- getArgs
--    appLog (show args)
    case args of
        [] -> exitSuccess
        ["--numeric-version"] -> putStrLn "18.1.0.0"
        [_] -> runStack args
        ("run":_:a) -> do
            r <- getExecFile
            case r of
                (Just e) ->  runStack $ "exec":e:a
                _ -> exitFailure
        (_:"configure":_) -> exitSuccess
        (_:"build":_) -> runStack ["build"]
        _ -> runStack args

Её и для других плагинов можно использовать. Только порядок аргументов передаваемых cabal-у может быть другим. Для этого можно будет раскомментировать вывод в лог (укажите свой путь!).
Обманка, я её назвал stack-cabal, должна и под linux работать.

Обманку разместить там же, где и stack.exe !

Ставим само IntelliJ IDEA Community Edition. (Т.е., то что справа, Free). Установив, добавляем плагин. Settings -> Plugins -> Browse repositories ..., в строке поиска вводим haskforce и зелёную кнопку Install справа.

(Попасть в настройки IDEA, при первом запуске или не выбранном проекте можно кнопкой внизу окна. В открытом проекте Ctrl-Alt-S.)

В настройках плагина

Кликните здесь для просмотра всего текста

Stack + IntelliJ IDEA + plugin haskforce + напильник

указываем установленные вначале утилиты, с одним нюансом. Вместо ghci_mod указываем второй раз ghc-mod и флаг ему legacy-interactive
Пути у меня такие, куда ставит в Windows stack по умолчанию. Этот каталог я внёс в PATH, так что утилиты нашлись сами (нажимаем кнопки AutoFind).

В настройках компилятора

Кликните здесь для просмотра всего текста

прописываем путь к ghc - этот путь можно увидеть выполнив stack path, желательно в каталоге уже существующего, свежего проекта, и после bin-path: он будет вторым или третьим из перечисленных каталогов. Там же, следующей строкой, прописываем путь к "обманке".

В общем, дальше разберётесь. Может чего и мне подскажите.

Результат компиляции и выполнения пробного проекта

Кликните здесь для просмотра всего текста

.

p.s. Вместо cabal run XRuZzz предложил использовать stack exec. Я использовал его совет. Спасибо ему.

	14.11.2015, 03:32