From 76a86ca1468afae27c26adc63bb127097eecdbb8 Mon Sep 17 00:00:00 2001 From: Maxim Lihachev Date: Thu, 10 Nov 2016 18:00:57 +0500 Subject: [PATCH] fix --- audioread.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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