diff --git a/snowtify.cabal b/snowtify.cabal
--- a/snowtify.cabal
+++ b/snowtify.cabal
@@ -1,5 +1,5 @@
 name:                snowtify
-version:             0.1.0.2
+version:             0.1.0.3
 synopsis:            snowtify send your result of `stack build` (`stack test`) to notify-daemon :dog2:
 description:         snowtify send your result of `stack build` (`stack test`) to notify-daemon :dog2:
 homepage:            https://github.com/aiya000/hs-snowtify#README.md
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -35,6 +35,7 @@
 execute :: Either SomeException Text -> Shell ExitCode
 execute (Left err)      = notifySend . T.pack $ show err
 execute (Right command) = do
+  notifySend $ "'" <> command <> "' will be started"
   (exitCode, out, err) <- TT.procStrictWithErr "stack" [command] ""
   let result = out <> err
   let notifyer = if exitCode == TT.ExitSuccess
@@ -47,7 +48,6 @@
 notifySucceeding :: Text -> Text -> Shell ExitCode
 notifySucceeding command result = do
   notifySend $ "stack " <> command <> " is succeed"
-  --TODO: Don't work
   notifySections ["warning"] result
 
 -- | Show errors with the notify-daemon
@@ -85,9 +85,7 @@
     isItSection :: Text -> Text -> Bool
     isItSection it x =
       let it' = it <> ":" -- 'it' is \1 of "^.*:\w+:\w+: (.+):$"
-      in case headMay $ T.lines x of
-        Nothing        -> False
-        Just firstLine -> any (== it') $ T.words firstLine
+      in any (== it') . concatMap T.words $ T.lines x
 
 
 -- |