From 7c261986cf3139bac7c37089e5df4f513a65506e Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 22 Aug 2021 19:37:42 +0100
Subject: Fragment

---
 src/gleam/uri.gleam | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/gleam/uri.gleam b/src/gleam/uri.gleam
index 8e49c5b..53c695a 100644
--- a/src/gleam/uri.gleam
+++ b/src/gleam/uri.gleam
@@ -237,7 +237,10 @@ if erlang {
 /// ```
 ///
 pub fn to_string(uri: Uri) -> String {
-  let parts = []
+  let parts = case uri.fragment {
+    Some(fragment) -> ["#", fragment]
+    _ -> []
+  }
   let parts = [uri.path, ..parts]
   let parts = case uri.host, string.starts_with(uri.path, "/") {
     Some(host), False if host != "" -> ["/", ..parts]
-- 
cgit v1.2.3