# HG changeset patch
# User Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
# Date 1416357604 -32400
# Node ID 8d9c55bac8b23ac34bc2261f1ec9912f6fc804c2
# Parent  06f3ca01572dfb92a1c53dadad62736cae2e3b87
Fix typo

diff -r 06f3ca01572d -r 8d9c55bac8b2 delta.hs
--- a/delta.hs	Wed Nov 19 09:39:25 2014 +0900
+++ b/delta.hs	Wed Nov 19 09:40:04 2014 +0900
@@ -67,7 +67,7 @@
 bubbleSort xs = bubbleSort remainValue >>= (\xs -> returnSS (sortedValueL : xs)
                                                             (sortedValueR ++ xs))
     where
-        maxmumValue  = maximum xs
-        sortedValueL = maxmumValue
-        sortedValueR = replicate (length $ filter (== maxmumValue) xs) maxmumValue
-        remainValue  = filter (/= maxmumValue) xs
+        maximumValue = maximum xs
+        sortedValueL = maximumValue
+        sortedValueR = replicate (length $ filter (== maximumValue) xs) maximumValue
+        remainValue  = filter (/= maximumValue) xs