JavaScriptExpert
diff --git a/‎hierarchy/Main.hs‎
Lines changed: 9 additions & 5 deletions b/‎hierarchy/Main.hs‎
Lines changed: 9 additions & 5 deletions
diff --git a/‎psc-docs/Main.hs‎
Lines changed: 3 additions & 1 deletion b/‎psc-docs/Main.hs‎
Lines changed: 3 additions & 1 deletion
diff --git a/‎purescript.cabal‎
Lines changed: 4 additions & 3 deletions b/‎purescript.cabal‎
Lines changed: 4 additions & 3 deletions
@@ -13,6 +13,8 @@
 --
 -----------------------------------------------------------------------------
 
+{-# LANGUAGE TupleSections #-}
+
 module Main where
 
 import Control.Monad (unless)
@@ -24,6 +26,7 @@ import Data.Version (showVersion)
 import Options.Applicative
 import System.Directory (createDirectoryIfMissing)
 import System.FilePath ((</>))
+import System.FilePath.Glob (glob)
 import System.Exit (exitFailure, exitSuccess)
 import System.IO (hPutStr, stderr)
 
@@ -50,13 +53,14 @@ instance Ord SuperMap where
 runModuleName :: P.ModuleName -> String
 runModuleName (P.ModuleName pns) = intercalate "_" (P.runProperName `map` pns)
 
-readInput :: FilePath -> IO (Either P.MultipleErrors [P.Module])
-readInput filename = do
-  content <- readFile filename
-  return $ map snd <$> P.parseModulesFromFiles id [(filename, content)]
+readInput :: [FilePath] -> IO (Either P.MultipleErrors [P.Module])
+readInput paths = do
+  content <- mapM (\path -> (path, ) <$> readFile path) paths
+  return $ map snd <$> P.parseModulesFromFiles id content
 
 compile :: HierarchyOptions -> IO ()
-compile (HierarchyOptions input mOutput) = do
+compile (HierarchyOptions inputGlob mOutput) = do
+  input <- glob inputGlob
   modules <- readInput input
   case modules of
     Left errs -> hPutStr stderr (P.prettyPrintMultipleErrors False errs) >> exitFailure
 
@@ -34,6 +34,7 @@ import System.Exit (exitFailure)
 import System.IO (hPutStrLn, stderr)
 import System.Directory (createDirectoryIfMissing)
 import System.FilePath (takeDirectory)
+import System.FilePath.Glob (glob)
 
 import Etags
 import Ctags
@@ -61,7 +62,8 @@ data PSCDocsOptions = PSCDocsOptions
   deriving (Show)
 
 docgen :: PSCDocsOptions -> IO ()
-docgen (PSCDocsOptions fmt input output) =
+docgen (PSCDocsOptions fmt inputGlob output) = do
+  input <- concat <$> mapM glob inputGlob
   case fmt of
     Etags -> dumpTags input dumpEtags
     Ctags -> dumpTags input dumpCtags
 
@@ -185,8 +185,8 @@ executable psci
 executable psc-docs
     build-depends: base >=4 && <5, purescript -any,
                    optparse-applicative >= 0.10.0, process -any, mtl -any,
-                   split -any, ansi-wl-pprint -any, directory -any, filepath
-                   -any
+                   split -any, ansi-wl-pprint -any, directory -any, 
+                   filepath -any, Glob -any
     main-is: Main.hs
     buildable: True
     hs-source-dirs: psc-docs
@@ -213,7 +213,8 @@ executable psc-publish
 
 executable psc-hierarchy
     build-depends: base >=4 && <5, purescript -any, optparse-applicative >= 0.10.0,
-                   process -any, mtl -any, parsec -any, filepath -any, directory -any
+                   process -any, mtl -any, parsec -any, filepath -any, directory -any, 
+                   Glob -any
     main-is: Main.hs
     buildable: True
     hs-source-dirs: hierarchy