Skip to content

Commit

Permalink
fixed warnings, not tracking cabal file
Browse files Browse the repository at this point in the history
  • Loading branch information
schell committed Oct 17, 2018
1 parent d02ae7f commit 3eee0ec
Show file tree
Hide file tree
Showing 7 changed files with 5 additions and 130 deletions.
1 change: 1 addition & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -10,3 +10,4 @@ cabal.sandbox.config
.stack-work/
.sosrc*
codex.tags
steeloverseer.cabal
5 changes: 2 additions & 3 deletions app/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,6 @@ import Control.Monad
import Control.Monad.Managed
import Data.ByteString (ByteString)
import Data.List.NonEmpty (NonEmpty(..))
import Data.Monoid
import Data.Yaml (decodeFileEither, prettyPrintParseException)
import Options.Applicative
import Streaming
Expand Down Expand Up @@ -254,10 +253,10 @@ watchTree target = do
stream :: Stream (Of FSNotify.Event) Managed a
stream = FSNotify.watchTree config target (const True)

S.for stream (\case
S.for stream $ \case
FSNotify.Added path _ _ -> S.yield (FileAdded (go cwd path))
FSNotify.Modified path _ _ -> S.yield (FileModified (go cwd path))
FSNotify.Removed _ _ _ -> pure ())
_ -> pure ()
where
go :: FilePath -> FilePath -> ByteString
go cwd path = packBS (makeRelative cwd path)
Expand Down
2 changes: 2 additions & 0 deletions package.yaml
Original file line number Diff line number Diff line change
Expand Up @@ -55,6 +55,7 @@ library:
- containers >= 0.5
- process >= 1.6 && < 1.7
- unix
other-modules: []

executables:
sos:
Expand All @@ -65,6 +66,7 @@ executables:
- directory >= 1.2
- filepath >= 1.3
- optparse-applicative >= 0.11
other-modules: []
when:
- condition: os(darwin)
dependencies: hfsevents >= 0.1.3
Expand Down
1 change: 0 additions & 1 deletion src/Sos/Job.hs
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,6 @@ import Control.Concurrent.MVar (readMVar)
import Control.Exception
import Data.Function (on)
import Data.List.NonEmpty (NonEmpty)
import Data.Monoid
import System.Exit
import System.IO
import System.IO.Error (tryIOError)
Expand Down
1 change: 0 additions & 1 deletion src/Sos/Template.hs
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,6 @@ import Sos.Utils
import Control.Applicative
import Control.Monad.Catch (MonadThrow, throwM)
import Data.ByteString (ByteString)
import Data.Monoid
import Text.ParserCombinators.ReadP

import qualified Data.Text.Encoding as Text
Expand Down
1 change: 0 additions & 1 deletion src/Sos/Utils.hs
Original file line number Diff line number Diff line change
@@ -1,7 +1,6 @@
module Sos.Utils where

import Control.Applicative
import Data.Monoid
import Data.ByteString (ByteString)
import System.Console.ANSI

Expand Down
124 changes: 0 additions & 124 deletions steeloverseer.cabal

This file was deleted.

0 comments on commit 3eee0ec

Please sign in to comment.