Stop parsing stack-work and node_modules

Author: NickSeagull

package.yaml

@@ -1,5 +1,5 @@
 name: aws-lambda-haskell-runtime
-version: 1.1.0
+version: 1.1.1
 github: "theam/aws-lambda-haskell-runtime"
 license: Apache-2.0
 author: Nikita Tchayka
@@ -79,4 +79,3 @@ ghc-options:
   - -Wpartial-fields
   - -fhide-source-paths
   - -freverse-errors
-  - -O2

src/Aws/Lambda/Meta/Discover.hs

@@ -1,6 +1,6 @@
 {-| Discovery of AWS Lambda handlers
 A handler is basically a function that has a type definition that
-starts with "handler :: ".
+starts with "handler " and two colons.
  -}
 module Aws.Lambda.Meta.Discover
   ( handlers
@@ -15,6 +15,13 @@ import qualified Data.Text as Text
 import Path
 import qualified Path.IO as PathIO
 
+-- | Paths to ignore during compilation
+ignoredPaths :: [Text]
+ignoredPaths =
+  [ "node_modules"
+  , ".stack-work"
+  ]
+
 {-| Returns a list of handler paths that look like
 
 @src/Foo/Bar/Quux.handler@
@@ -35,6 +42,11 @@ modulesWithHandler files =
  where
   isHaskellModule file =
     fileExtension file == ".hs"
+    && isNotIgnoredPath file
+
+  isNotIgnoredPath file =
+    filter ((Text.pack $ toFilePath file) `Text.isInfixOf`) ignoredPaths
+    & null
 
 handlerNames :: [Path Rel File] -> [Text]
 handlerNames modules =