diff options
Diffstat (limited to 'src/WWWStaticus.hs')
| -rw-r--r-- | src/WWWStaticus.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/WWWStaticus.hs b/src/WWWStaticus.hs index cd9e454..2144fe0 100644 --- a/src/WWWStaticus.hs +++ b/src/WWWStaticus.hs @@ -1,7 +1,7 @@ {-| WWWStaticus is a minimalistic yet modular static website generator first coded in April 2018 by Michal Idziorek <m.i@gmx.at>. - Last Update: Jan 29, 2019 + Last Update: Feb, 2019 -} module WWWStaticus @@ -56,7 +56,7 @@ trvDirTree fp f = unfoldTreeM unf fp >>= sequence_ -- |get list of subdirectories getDirList :: FilePath -> IO [FilePath] -getDirList d = filter (not.isPrefixOf ".") <$> map ((d++"/")++) <$> listDirectory d +getDirList d = map ((d++"/")++) <$> filter (not.isPrefixOf ".") <$> listDirectory d >>= filterM doesDirectoryExist -- |run plugins in a single directory 'path'. |