From 485e7faa826290a3431bb4fee68bc9b92075df27 Mon Sep 17 00:00:00 2001
From: Maxim Lihachev <envrm@yandex.ru>
Date: Tue, 25 Oct 2016 15:58:33 +0500
Subject: [PATCH] =?UTF-8?q?peak=20=D0=BF=D0=BE=20=D0=BC=D0=BE=D0=B4=D1=83?=
 =?UTF-8?q?=D0=BB=D1=8F=D0=BC=20=D0=BE=D1=82=D1=81=D1=87=D1=91=D1=82=D0=BE?=
 =?UTF-8?q?=D0=B2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 audioread.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/audioread.hs b/audioread.hs
index 002ce4a..aca9eae 100644
--- a/audioread.hs
+++ b/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