diff --git a/algorithms/Haskell/README.md b/algorithms/Haskell/README.md
new file mode 100644
index 00000000..e92056e6
--- /dev/null
+++ b/algorithms/Haskell/README.md
@@ -0,0 +1,6 @@
+# Haskell
+
+## Strings
+
+1. [Palindrome Check](strings/palindrome.hs)
+2. [All subsequences](strings/sequence.hs)
\ No newline at end of file
diff --git a/strings/haskell/palindrome.hs b/algorithms/Haskell/strings/palindrome.hs
similarity index 100%
rename from strings/haskell/palindrome.hs
rename to algorithms/Haskell/strings/palindrome.hs
diff --git a/strings/haskell/sequence.hs b/algorithms/Haskell/strings/sequence.hs
similarity index 100%
rename from strings/haskell/sequence.hs
rename to algorithms/Haskell/strings/sequence.hs
diff --git a/strings/README.md b/strings/README.md
index f4eee73e..ca8fac67 100644
--- a/strings/README.md
+++ b/strings/README.md
@@ -15,8 +15,4 @@
 
 1. [Palindrome Check](rust/palindrome/README.md)
 
-### Haskell
-
-1. [Palindrome Check](haskell/palindrome.hs)
-2. [All subsequences](haskell/sequence.hs)