From 6e75b7853bd761db302dc629b8ee4f087a18b0d6 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Sun, 31 Mar 2019 00:22:12 +0100 Subject: Add skeleton for project discovery functionality --- cabal-helper.cabal | 1 + lib/Distribution/Helper/Discover.hs | 41 +++++++++++++++++++++++++++++++++++++ 2 files changed, 42 insertions(+) create mode 100644 lib/Distribution/Helper/Discover.hs diff --git a/cabal-helper.cabal b/cabal-helper.cabal index ff393d6..03702e7 100644 --- a/cabal-helper.cabal +++ b/cabal-helper.cabal @@ -156,6 +156,7 @@ library c-h-internal library import: build-deps, extensions exposed-modules: Distribution.Helper + Distribution.Helper.Discover other-modules: Paths_cabal_helper autogen-modules: diff --git a/lib/Distribution/Helper/Discover.hs b/lib/Distribution/Helper/Discover.hs new file mode 100644 index 0000000..d4abe69 --- /dev/null +++ b/lib/Distribution/Helper/Discover.hs @@ -0,0 +1,41 @@ +-- cabal-helper: Simple interface to Cabal's configuration state +-- Copyright (C) 2019 Daniel Gröber +-- +-- This program is free software: you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation, either version 3 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see . + +{-| +Module : Distribution.Helper.Discover +Description : Finding project contexts +License : GPL-3 +Maintainer : cabal-helper@dxld.at +Portability : portable +-} + +-- TODO: $ sed -e s/DistDir/BuildDir/ + +module Distribution.Helper.Discover + ( findProjects + , findDistDirs + , findDistDirsWithHints + ) where + +import CabalHelper.Compiletime.Types + +findProjects :: FilePath -> IO [Ex ProjLoc] +findDistDirs :: ProjLoc pt -> [DistDir pt] +findDistDirsWithHints :: ProjLoc pt -> [FilePath] -> [DistDir pt] + +findProjects = undefined +findDistDirs = undefined +findDistDirsWithHints = undefined -- cgit v1.2.3