From 9794e7d56e818c566264c7c9a806912e7943767e Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 7 Dec 2020 20:40:39 +1300
Subject: [PATCH] Ensure parsed rewriters are actually files.

---
 src/Network/URI/PlugIns/Rewriters.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Network/URI/PlugIns/Rewriters.hs b/src/Network/URI/PlugIns/Rewriters.hs
index 8e5b46f..d033bc7 100644
--- a/src/Network/URI/PlugIns/Rewriters.hs
+++ b/src/Network/URI/PlugIns/Rewriters.hs
@@ -38,10 +38,13 @@ parseRewriters app = do
     loadRewriters dir = do
         files <- Dir.listDirectory dir
         raw <- forConcurrently files $ \file -> do
-            rewriter <- parseRewriter file
-            return $ case rewriter of
-                Select x -> x
-                Pipe x -> x
+            exists <- doesFileExist file
+            if exists then do
+                rewriter <- parseRewriter file
+                return $ case rewriter of
+                    Select x -> x
+                    Pipe x -> x
+            else return []
         return $ concat raw
 
 applyRewriter :: Rewriter -> URI -> Maybe URI
-- 
2.30.2