Allow dot in quepath

1 files changed, 1 insertions, 1 deletions

diff --git a/Run/Que.hs b/Run/Que.hs
index 356584f..cf9467b 100644
--- a/Run/Que.hs
+++ b/Run/Que.hs
@@ -81,7 +81,7 @@ routes :: Scotty.ScottyT Text App ()
 routes = do
   Scotty.middleware logStdoutDev
 
-  let quepath = "^/([[:alnum:]_]*)/([[:alnum:]_/]*)$"
+  let quepath = "^/([[:alnum:]_]*)/([[:alnum:]._/]*)$"
   let index   = "^(/|/index.html)$"
 
   Scotty.get (Scotty.regex index) <| do