peak по модулям отсчётов

audioread.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}
 
 -- Создан:  Ср 28 сен 2016 10:18:53
--- Изменен: Пн 24 окт 2016 14:53:30
+-- Изменен: Вт 25 окт 2016 15:45:52
 
 -- Copyright (C) 2011-2013, Maxim Lihachev, <envrm@yandex.ru>
 
@@ -86,7 +86,7 @@ float2db k x
 -- Пиковое значение уровня сигнала на отрезке
 peak :: (Ord a, Floating a) => [a] -> a
 peak [] = acos(1) -- NaN
-peak xs = maximum xs
+peak xs = maximum $ abs <@ xs
 
 -- Вычисление уровня сигнала
 calcLevel :: [Char] -> Int -> [Double] -> Double