snowtify 0.1.0.2 → 0.1.0.3

raw patch · 2 files changed

+3/−5 lines, 2 files

Files

snowtify.cabal +1/−1
src/Main.hs +2/−4

snowtify.cabal view

@@ -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

src/Main.hs view

@@ -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   -- |