1 files changed, 0 insertions, 13 deletions

diff --git a/Foundation.hs b/Foundation.hs
index 8b3fe46..d7425d5 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -123,19 +123,6 @@ 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