diff options
author | eric thul <thul.eric@gmail.com> | 2015-07-06 23:49:47 -0400 |
---|---|---|
committer | eric thul <thul.eric@gmail.com> | 2015-07-06 23:55:06 -0400 |
commit | 0e1221d7b15e578d5e9146b01e11a24007d4ba9b (patch) | |
tree | aa70df70f6c36b7a85783c28d7eb256854b4232c /src/Options.purs | |
parent | bc4de0853bd1cbf63842b3b66bb30494c9ea778a (diff) | |
download | purs-loader-0e1221d7b15e578d5e9146b01e11a24007d4ba9b.tar.gz purs-loader-0e1221d7b15e578d5e9146b01e11a24007d4ba9b.tar.zst purs-loader-0e1221d7b15e578d5e9146b01e11a24007d4ba9b.zip |
Generate .psci file
Resolves #11
Diffstat (limited to 'src/Options.purs')
-rw-r--r-- | src/Options.purs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Options.purs b/src/Options.purs index be21877..51e9be5 100644 --- a/src/Options.purs +++ b/src/Options.purs | |||
@@ -1,6 +1,7 @@ | |||
1 | module PursLoader.Options | 1 | module PursLoader.Options |
2 | ( pscOptions | 2 | ( pscOptions |
3 | , loaderSrcOption | 3 | , loaderSrcOption |
4 | , loaderFFIOption | ||
4 | ) where | 5 | ) where |
5 | 6 | ||
6 | import Data.Array (concat) | 7 | import Data.Array (concat) |
@@ -101,3 +102,6 @@ pscOptions query = either (const []) fold parsed | |||
101 | 102 | ||
102 | loaderSrcOption :: Foreign -> Maybe [String] | 103 | loaderSrcOption :: Foreign -> Maybe [String] |
103 | loaderSrcOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.src) (read query) | 104 | loaderSrcOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.src) (read query) |
105 | |||
106 | loaderFFIOption :: Foreign -> Maybe [String] | ||
107 | loaderFFIOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.ffi) (read query) | ||