Roll own cleanPath

1 files changed, 13 insertions, 0 deletions

diff --git a/Foundation.hs b/Foundation.hs
index d7425d5..8b3fe46 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -123,6 +123,19 @@ instance Yesod App where
     -- error pages
     defaultMessageWidget title body = $(widgetFile "default-message-widget")
 
+    cleanPath _ s = if corrected == s
+                    then Right $ filter (not . null) s
+                    else Left corrected
+      where
+        corrected = rds s
+
+        rds [] = []
+        rds [x] = [x]
+        rds (x:y:ss)
+          | null x
+          , null y = rds (x:ss)
+          | otherwise = x : rds (y:ss)
+
 -- How to run database actions.
 instance YesodPersist App where
     type YesodPersistBackend App = SqlBackend