fix

audioread.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}
 
 -- Создан:  Ср 28 сен 2016 10:18:53
--- Изменен: Пн 07 ноя 2016 09:32:57
+-- Изменен: Чт 10 ноя 2016 18:00:29
 
 -- Copyright (C) 2011-2013, Maxim Lihachev, <envrm@yandex.ru>
 
@@ -149,7 +149,7 @@ defaultOptions = cmdArgs $ Audioread {
 -- Вывод строки с префиксом и суффиксом
 describe :: (Show s) => Int -> String -> s -> String -> IO ()
 describe o p m s =  putStrLn message where
-		str     = if notEmpty (show s) then show s else ""
+		str     = if notEmpty (show m) then show m else ""
 		message | o == 1     = p ++ str ++ s
 			| otherwise = str