Mercurial > hg > Members > atton > delta_monad

changeset 51:8d9c55bac8b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Wed, 19 Nov 2014 09:40:04 +0900
parents 06f3ca01572d
children 69a01cc80075
files delta.hs
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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