snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-12 14:06:10 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #119 from creichert/master

Browse Source 
Replace MIN_VERSION macro SYSTEM_FILEPATH.
This commit is contained in:
Christopher Reichert 2015-07-29 02:31:15 -05:00
commit 4839574e4a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Keter/Main.hs
View File

@ -185,12 +185,12 @@ startWatching kc@KeterConfig {..} appMan log = do
-- compatibility with older versions of fsnotify which used
-- 'Filesystem.Path'
#if MIN_VERSION_fsnotify(0,2,0)
fromFilePath :: forall a. a -> a
fromFilePath = id
#else
#ifdef SYSTEM_FILEPATH
fromFilePath :: FP.FilePath -> String
fromFilePath = encodeString
#else
fromFilePath :: forall a. a -> a
fromFilePath = id
#endif
listDirectoryTree :: FilePath -> IO [FilePath]