Resolving dependencies...
Configuring stm-2.4.4.1...
Configuring text-1.2.2.1...
Building stm-2.4.4.1...
Building text-1.2.2.1...
Configuring unix-compat-0.4.3.1...
Installed stm-2.4.4.1
Building unix-compat-0.4.3.1...
Configuring async-2.1.1...
Installed unix-compat-0.4.3.1
Building async-2.1.1...
Installed async-2.1.1
Configuring hinotify-0.3.9...
Building hinotify-0.3.9...
Installed hinotify-0.3.9
Installed text-1.2.2.1
Configuring fsnotify-0.2.1...
Configuring system-filepath-0.4.13.4...
Building fsnotify-0.2.1...
Installed fsnotify-0.2.1
Building system-filepath-0.4.13.4...
Installed system-filepath-0.4.13.4
Configuring fswatcher-0.1...
Building fswatcher-0.1...
Failed to install fswatcher-0.1
Build log ( /home/builder/.cabal/logs/fswatcher-0.1.log ):
cabal: Entering directory '/tmp/cabal-tmp-17914/fswatcher-0.1'
Configuring fswatcher-0.1...
Building fswatcher-0.1...
Preprocessing executable 'fswatcher' for fswatcher-0.1...
[1 of 1] Compiling Main             ( fswatcher.hs, dist/build/fswatcher/fswatcher-tmp/Main.o )

fswatcher.hs:25:46: error:
    • Couldn't match type ‘system-filepath-0.4.13.4:Filesystem.Path.Internal.FilePath’
                     with ‘[Char]’
      Expected type: FilePath
        Actual type: system-filepath-0.4.13.4:Filesystem.Path.Internal.FilePath
    • In the second argument of ‘watchDir’, namely
        ‘(directory $ fromString path)’
      In the expression:
        watchDir m (directory $ fromString path) isThisFile
      In a case alternative:
          File -> watchDir m (directory $ fromString path) isThisFile

fswatcher.hs:26:7: error:
    • Couldn't match type ‘IO ()’ with ‘()’
      Expected type: IO ()
        Actual type: IO
                       fsnotify-0.2.1:System.FSNotify.Listener.StopListening
    • In the expression: watchFun (\ _ -> void $ tryPutMVar trigger ())
      In the expression:
        let
          watchFun
            = case filetype of {
                Directory -> ...
                File -> ... }
        in watchFun (\ _ -> void $ tryPutMVar trigger ())
      In an equation for ‘watch’:
          watch filetype m path trigger
            = let watchFun = ...
              in watchFun (\ _ -> void $ tryPutMVar trigger ())
            where
                isThisFile (Modified p _) = p == fromString path
                isThisFile _ = False
cabal: Leaving directory '/tmp/cabal-tmp-17914/fswatcher-0.1'
cabal: Error: some packages failed to install:
fswatcher-0.1 failed during the building phase. The exception was:
ExitFailure 1