diff --git a/Sorting/quickSort/Haskell/quickSort.hs b/Sorting/quickSort/Haskell/quickSort.hs
new file mode 100644
index 000000000..5a73b3b91
--- /dev/null
+++ b/Sorting/quickSort/Haskell/quickSort.hs
@@ -0,0 +1,5 @@
+ordernar ::[Int] -> [Int]
+ordernar [] = []
+ordernar (s:xs) = ordernar [x|x <- xs, (digitsInt (show x)) < (digitsInt (show s))]
+                  ++ [s] ++
+                  ordernar [x|x <- xs, (digitsInt (show x)) >= (digitsInt (show s))]
\ No newline at end of file