diff --git a/audioread.hs b/audioread.hs index 1827d1c..a499bf8 100644 --- a/audioread.hs +++ b/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, @@ -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