blob: cc91ae7f81651cfd9c608c4c27c6097348cd0690 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
// Copyright (c) 2017 The Qt Company Ltd.
// SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
#include "haskellmanager.h"
#include "haskellsettings.h"
#include "haskelltr.h"
#include <utils/algorithm.h>
#include <utils/commandline.h>
#include <utils/hostosinfo.h>
#include <utils/mimeutils.h>
#include <utils/process.h>
#include <utils/processenums.h>
#include <QDir>
#include <QFileInfo>
using namespace Utils;
namespace Haskell::Internal {
FilePath HaskellManager::findProjectDirectory(const FilePath &filePath)
{
if (filePath.isEmpty())
return {};
QDir directory(filePath.toFileInfo().isDir() ? filePath.toString()
: filePath.parentDir().toString());
directory.setNameFilters({"stack.yaml", "*.cabal"});
directory.setFilter(QDir::Files | QDir::Readable);
do {
if (!directory.entryList().isEmpty())
return FilePath::fromString(directory.path());
} while (!directory.isRoot() && directory.cdUp());
return {};
}
void HaskellManager::openGhci(const FilePath &haskellFile)
{
const QList<MimeType> mimeTypes = mimeTypesForFileName(haskellFile.toString());
const bool isHaskell = Utils::anyOf(mimeTypes, [](const MimeType &mt) {
return mt.inherits("text/x-haskell") || mt.inherits("text/x-literate-haskell");
});
const auto args = QStringList{"ghci"}
+ (isHaskell ? QStringList{haskellFile.fileName()} : QStringList());
Process p;
p.setTerminalMode(TerminalMode::Detached);
p.setCommand({settings().stackPath(), args});
p.setWorkingDirectory(haskellFile.absolutePath());
p.start();
}
} // Haskell::Internal
|