From adf379f414ebd6f06cfe49dc481b220c7f141ba1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 16 Mar 2017 17:51:41 +0100
Subject: Revert "Roll own cleanPath"

This reverts commit 089ba7d7f860022780da9d426207dc7fe3507a55.
---
 Foundation.hs | 13 -------------
 1 file changed, 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
-- 
cgit v1.2.3