From 50abccd8a4243c561cc39c54f84ddfaae8c73120 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 18 Aug 2020 14:40:10 +0200
Subject: Refactor: remove BaseUrl

---
 server/lib/Uplcg/BaseUrl.hs | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100644 server/lib/Uplcg/BaseUrl.hs

(limited to 'server/lib/Uplcg/BaseUrl.hs')

diff --git a/server/lib/Uplcg/BaseUrl.hs b/server/lib/Uplcg/BaseUrl.hs
deleted file mode 100644
index f49d0d0..0000000
--- a/server/lib/Uplcg/BaseUrl.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Uplcg.BaseUrl
-    ( BaseUrl (..)
-    , parse
-    , render
-    ) where
-
-import qualified Data.Text as T
-
-newtype BaseUrl = BaseUrl [T.Text] deriving (Show)
-
-render :: BaseUrl -> T.Text
-render (BaseUrl []) = ""
-render (BaseUrl xs) = "/" <> T.intercalate "/" xs
-
-parse :: T.Text -> BaseUrl
-parse = BaseUrl . filter (not . T.null) . T.split (== '/')
-- 
cgit v1.2.3