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

Replace MIN_VERSION macro SYSTEM_FILEPATH.

Browse Source
This commit is contained in:
Christopher Reichert 2015-07-29 01:54:09 -05:00
parent e8effc9f70
commit 547f853fb2
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]