diff options
author | eric thul <thul.eric@gmail.com> | 2015-12-20 22:11:16 -0500 |
---|---|---|
committer | eric thul <thul.eric@gmail.com> | 2015-12-20 22:11:16 -0500 |
commit | 2e2da2be94720a739c595ec179a7ed49480ce753 (patch) | |
tree | 9b1b4763ca5e05d9211fec771df09ec29fb9fb34 /src/PursLoader/Loader.purs | |
parent | 94cc1cdd03b9c2115813a698b1e4337bce894321 (diff) | |
download | purs-loader-2e2da2be94720a739c595ec179a7ed49480ce753.tar.gz purs-loader-2e2da2be94720a739c595ec179a7ed49480ce753.tar.zst purs-loader-2e2da2be94720a739c595ec179a7ed49480ce753.zip |
Fixing compiler warnings
Diffstat (limited to 'src/PursLoader/Loader.purs')
-rw-r--r-- | src/PursLoader/Loader.purs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/PursLoader/Loader.purs b/src/PursLoader/Loader.purs index 205d3eb..a91667c 100644 --- a/src/PursLoader/Loader.purs +++ b/src/PursLoader/Loader.purs | |||
@@ -16,7 +16,7 @@ import Data.Function (Fn2(), mkFn2) | |||
16 | import Data.Maybe (Maybe(..), fromMaybe, maybe) | 16 | import Data.Maybe (Maybe(..), fromMaybe, maybe) |
17 | import Data.Either (Either(..)) | 17 | import Data.Either (Either(..)) |
18 | import Data.String (joinWith) | 18 | import Data.String (joinWith) |
19 | import Data.String.Regex (match, noFlags, regex, test) | 19 | import Data.String.Regex (Regex(), match, noFlags, regex, test) |
20 | import Data.Traversable (sequence) | 20 | import Data.Traversable (sequence) |
21 | import Data.Foreign (F()) | 21 | import Data.Foreign (F()) |
22 | import Data.Foreign.Class (read) | 22 | import Data.Foreign.Class (read) |
@@ -30,16 +30,22 @@ import PursLoader.Options (loaderFFIOption, loaderSrcOption, pscOptions, Options | |||
30 | 30 | ||
31 | type Effects eff = (cp :: ChildProcess, fs :: FS, glob :: Glob, loader :: Loader, err :: EXCEPTION | eff) | 31 | type Effects eff = (cp :: ChildProcess, fs :: FS, glob :: Glob, loader :: Loader, err :: EXCEPTION | eff) |
32 | 32 | ||
33 | moduleRegex :: Regex | ||
33 | moduleRegex = regex "(?:^|\\n)module\\s+([\\w\\.]+)" noFlags { ignoreCase = true } | 34 | moduleRegex = regex "(?:^|\\n)module\\s+([\\w\\.]+)" noFlags { ignoreCase = true } |
34 | 35 | ||
36 | foreignRegex :: Regex | ||
35 | foreignRegex = regex "(?:^|\\n)\\s*foreign import\\s+" noFlags { ignoreCase = true } | 37 | foreignRegex = regex "(?:^|\\n)\\s*foreign import\\s+" noFlags { ignoreCase = true } |
36 | 38 | ||
39 | pscCommand :: String | ||
37 | pscCommand = "psc" | 40 | pscCommand = "psc" |
38 | 41 | ||
42 | psciCommand :: String | ||
39 | psciCommand = "psci" | 43 | psciCommand = "psci" |
40 | 44 | ||
45 | psciFilename :: String | ||
41 | psciFilename = ".psci" | 46 | psciFilename = ".psci" |
42 | 47 | ||
48 | (!!!) :: forall a. Int -> Array a -> Maybe a | ||
43 | (!!!) = flip (!!) | 49 | (!!!) = flip (!!) |
44 | 50 | ||
45 | foreign import cwd :: String | 51 | foreign import cwd :: String |