aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Options.purs
diff options
context:
space:
mode:
authoreric thul <thul.eric@gmail.com>2015-07-06 23:49:47 -0400
committereric thul <thul.eric@gmail.com>2015-07-06 23:55:06 -0400
commit0e1221d7b15e578d5e9146b01e11a24007d4ba9b (patch)
treeaa70df70f6c36b7a85783c28d7eb256854b4232c /src/Options.purs
parentbc4de0853bd1cbf63842b3b66bb30494c9ea778a (diff)
downloadpurs-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.purs4
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 @@
1module PursLoader.Options 1module PursLoader.Options
2 ( pscOptions 2 ( pscOptions
3 , loaderSrcOption 3 , loaderSrcOption
4 , loaderFFIOption
4 ) where 5 ) where
5 6
6import Data.Array (concat) 7import Data.Array (concat)
@@ -101,3 +102,6 @@ pscOptions query = either (const []) fold parsed
101 102
102loaderSrcOption :: Foreign -> Maybe [String] 103loaderSrcOption :: Foreign -> Maybe [String]
103loaderSrcOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.src) (read query) 104loaderSrcOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.src) (read query)
105
106loaderFFIOption :: Foreign -> Maybe [String]
107loaderFFIOption query = either (const Nothing) (\(Options a) -> runNullOrUndefined a.ffi) (read query)