Glob patterns for foreign files

Author: garyb

MODULE.md

@@ -140,109 +140,109 @@ multipipe2 :: forall a b c. Stream a b -> Stream b c -> Stream a c
 
 
 
-## Module GulpPurescript.OS
+## Module GulpPurescript.Options
 
-#### `OS`
+#### `isForeignEither`
 
 ``` purescript
-data OS :: !
+instance isForeignEither :: (IsForeign a, IsForeign b) => IsForeign (Either a b)
 ```
 
 
-#### `Platform`
+#### `isForeignPsc`
 
 ``` purescript
-data Platform
-  = Darwin 
-  | Linux 
-  | Win32 
+instance isForeignPsc :: IsForeign Psc
 ```
 
 
-#### `showPlatform`
+#### `isForeignPscMake`
 
 ``` purescript
-instance showPlatform :: Show Platform
+instance isForeignPscMake :: IsForeign PscMake
 ```
 
 
-#### `isForeignPlatform`
+#### `isForeignPscDocs`
 
 ``` purescript
-instance isForeignPlatform :: IsForeign Platform
+instance isForeignPscDocs :: IsForeign PscDocs
 ```
 
 
-#### `platform`
+#### `isForeignFormat`
 
 ``` purescript
-platform :: forall eff. Eff (os :: OS | eff) (Maybe Platform)
+instance isForeignFormat :: IsForeign Format
 ```
 
 
-
-## Module GulpPurescript.Options
-
-#### `isForeignEither`
+#### `pscOptions`
 
 ``` purescript
-instance isForeignEither :: (IsForeign a, IsForeign b) => IsForeign (Either a b)
+pscOptions :: Foreign -> [String]
 ```
 
 
-#### `isForeignPsc`
+#### `pscOptionsNoOutput`
 
 ``` purescript
-instance isForeignPsc :: IsForeign Psc
+pscOptionsNoOutput :: Foreign -> Tuple (Maybe String) [String]
 ```
 
 
-#### `isForeignPscMake`
+#### `pscMakeOptions`
 
 ``` purescript
-instance isForeignPscMake :: IsForeign PscMake
+pscMakeOptions :: Foreign -> [String]
 ```
 
 
-#### `isForeignPscDocs`
+#### `pscDocsOptions`
 
 ``` purescript
-instance isForeignPscDocs :: IsForeign PscDocs
+pscDocsOptions :: Foreign -> [String]
 ```
 
 
-#### `isForeignFormat`
+
+## Module GulpPurescript.OS
+
+#### `OS`
 
 ``` purescript
-instance isForeignFormat :: IsForeign Format
+data OS :: !
 ```
 
 
-#### `pscOptions`
+#### `Platform`
 
 ``` purescript
-pscOptions :: Foreign -> [String]
+data Platform
+  = Darwin 
+  | Linux 
+  | Win32 
 ```
 
 
-#### `pscOptionsNoOutput`
+#### `showPlatform`
 
 ``` purescript
-pscOptionsNoOutput :: Foreign -> Tuple (Maybe String) [String]
+instance showPlatform :: Show Platform
 ```
 
 
-#### `pscMakeOptions`
+#### `isForeignPlatform`
 
 ``` purescript
-pscMakeOptions :: Foreign -> [String]
+instance isForeignPlatform :: IsForeign Platform
 ```
 
 
-#### `pscDocsOptions`
+#### `platform`
 
 ``` purescript
-pscDocsOptions :: Foreign -> [String]
+platform :: forall eff. Eff (os :: OS | eff) (Maybe Platform)
 ```
 
 

package.json

@@ -29,6 +29,7 @@
     "purescript"
   ],
   "dependencies": {
+    "glob": "^5.0.5",
     "gulp-util": "^3.0.4",
     "logalot": "^2.1.0",
     "minimist": "^1.1.1",

src/Options.purs

@@ -193,6 +193,20 @@ mkStringArray :: String -> NullOrUndefined [String] -> [String]
 mkStringArray key opt = concat $ mkString key <$> (NullOrUndefined <<< Just)
                                               <$> (fromMaybe [] $ runNullOrUndefined opt)
 
+mkPathArray :: String -> NullOrUndefined [String] -> [String]
+mkPathArray key opt = concat $ mkString key <$> (NullOrUndefined <<< Just)
+                                            <$> (fromMaybe [] (runNullOrUndefined opt) >>= expandGlob)
+
+foreign import expandGlob
+  """
+  var expandGlob = (function () {
+    var glob = require("glob");
+    return function (pattern) {
+      return glob.sync(pattern);
+    };
+  }());
+  """ :: String -> [String]
+
 mkFormat :: String -> NullOrUndefined Format -> [String]
 mkFormat key opt = mkString key (maybe j (\a -> case a of
                                                      Markdown -> i "markdown"
@@ -215,7 +229,7 @@ foldPscOptions (Psc a) = mkBoolean noPreludeOpt a.noPrelude <>
                          mkString outputOpt a.output <>
                          mkString externsOpt a.externs <>
                          mkBoolean noPrefixOpt a.noPrefix <>
-                         mkStringArray ffiOpt a.ffi
+                         mkPathArray ffiOpt a.ffi
 
 pscOptions :: Foreign -> [String]
 pscOptions opts = either (const []) foldPscOptions parsed
@@ -238,7 +252,7 @@ pscMakeOptions opts = either (const []) fold parsed
                            mkBoolean verboseErrorsOpt a.verboseErrors <>
                            mkBoolean commentsOpt a.comments <>
                            mkBoolean noPrefixOpt a.noPrefix <>
-                           mkStringArray ffiOpt a.ffi
+                           mkPathArray ffiOpt a.ffi
 
 pscDocsOptions :: Foreign -> [String]
 pscDocsOptions opts = either (const []) fold parsed