aboutsummaryrefslogtreecommitdiff
path: root/server/lib/Uplcg/BaseUrl.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt2020-08-16 10:21:14 +0200
committerJasper Van der Jeugt2020-08-16 10:21:14 +0200
commit9f2d12f0b098a365d7b0d4cc00b03fd2e5284740 (patch)
treebab2b7de1ccdb4618640cc951490d51ed8c66938 /server/lib/Uplcg/BaseUrl.hs
parent41622353bc3309921109f44bc0163e0987c20052 (diff)
WIP
Diffstat (limited to 'server/lib/Uplcg/BaseUrl.hs')
-rw-r--r--server/lib/Uplcg/BaseUrl.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/server/lib/Uplcg/BaseUrl.hs b/server/lib/Uplcg/BaseUrl.hs
index 4374322..f49d0d0 100644
--- a/server/lib/Uplcg/BaseUrl.hs
+++ b/server/lib/Uplcg/BaseUrl.hs
@@ -7,7 +7,7 @@ module Uplcg.BaseUrl
import qualified Data.Text as T
-newtype BaseUrl = BaseUrl [T.Text]
+newtype BaseUrl = BaseUrl [T.Text] deriving (Show)
render :: BaseUrl -> T.Text
render (BaseUrl []) = ""