mirror of
https://github.com/Avi-D-coder/implicit-hie.git
synced 2024-11-30 00:33:29 +03:00
37 lines
1.0 KiB
Haskell
37 lines
1.0 KiB
Haskell
{-# LANGUAGE MultiWayIf #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Monad
|
|
import Control.Monad.Trans.Maybe
|
|
import Data.Attoparsec.Text
|
|
import Data.List
|
|
import Data.Maybe
|
|
import qualified Data.Text as T
|
|
import qualified Data.Text.IO as T
|
|
import Hie.Cabal.Parser
|
|
import Hie.Locate
|
|
import Hie.Yaml
|
|
import System.Directory
|
|
import System.Directory.Internal
|
|
import System.FilePath.Posix
|
|
|
|
main :: IO ()
|
|
main = do
|
|
pwd <- getCurrentDirectory
|
|
files <- listDirectory pwd
|
|
let name =
|
|
if | any (("dist-newstyle" ==) . takeFileName) files -> "cabal"
|
|
| any ((".stack-work" ==) . takeFileName) files -> "stack"
|
|
| any (("stack.yaml" ==) . takeFileName) files -> "stack"
|
|
| otherwise -> "cabal"
|
|
cfs <- runMaybeT $ case name of
|
|
"cabal" -> cabalPkgs pwd
|
|
_ -> stackYamlPkgs pwd
|
|
when (null cfs) $ error $
|
|
"No .cabal files found under"
|
|
<> pwd
|
|
<> "\n You may need to run stack build."
|
|
pkgs <- catMaybes <$> mapM (nestedPkg pwd) (concat cfs)
|
|
putStr <$> hieYaml name $ fmtPkgs name pkgs
|