1 files changed, 51 insertions, 0 deletions
diff --git a/plugins/haskell/haskelldocument.cpp b/plugins/haskell/haskelldocument.cpp
new file mode 100644
index 0000000..98850bc
--- /dev/null
+++ b/plugins/haskell/haskelldocument.cpp
@@ -0,0 +1,51 @@
+/****************************************************************************
+**
+** Copyright (C) 2017 The Qt Company Ltd.
+** Contact: https://www.qt.io/licensing/
+**
+** This file is part of Qt Creator.
+**
+** Commercial License Usage
+** Licensees holding valid commercial Qt licenses may use this file in
+** accordance with the commercial license agreement provided with the
+** Software or, alternatively, in accordance with the terms contained in
+** a written agreement between you and The Qt Company. For licensing terms
+** and conditions see https://www.qt.io/terms-conditions. For further
+** information use the contact form at https://www.qt.io/contact-us.
+**
+** GNU General Public License Usage
+** Alternatively, this file may be used under the terms of the GNU
+** General Public License version 3 as published by the Free Software
+** Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
+** included in the packaging of this file. Please review the following
+** information to ensure the GNU General Public License requirements will
+** be met: https://www.gnu.org/licenses/gpl-3.0.html.
+**
+****************************************************************************/
+
+#include "haskelldocument.h"
+
+#include "haskellconstants.h"
+#include "haskellmanager.h"
+
+using namespace TextEditor;
+using namespace Utils;
+
+namespace Haskell {
+namespace Internal {
+
+HaskellDocument::HaskellDocument()
+    : TextDocument(Constants::C_HASKELLEDITOR_ID)
+{
+    connect(this, &IDocument::filePathChanged, this, [this](const FileName &, const FileName &fn) {
+        m_ghcmod = HaskellManager::ghcModForFile(fn);
+    });
+}
+
+std::shared_ptr<AsyncGhcMod> HaskellDocument::ghcMod() const
+{
+    return m_ghcmod;
+}
+
+} // namespace Internal
+} // namespace Haskell