haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

One more sort for #1684

Browse Source
This commit is contained in:
Michael Snoyman 2020-07-04 19:09:50 +03:00
parent 084a3cefb5
commit 7964967ba8
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-static/Yesod/Static.hs
View File

@ -71,7 +71,7 @@ import Data.FileEmbed (embedDir)
import Yesod.Core import Yesod.Core
import Yesod.Core.Types import Yesod.Core.Types
import Data.List (intercalate) import Data.List (intercalate, sort)
import Language.Haskell.TH import Language.Haskell.TH
import Language.Haskell.TH.Syntax as TH import Language.Haskell.TH.Syntax as TH
@ -192,7 +192,7 @@ getFileListPieces = flip evalStateT M.empty . flip go id
-> ([String] -> [String]) -> ([String] -> [String])
-> StateT (M.Map String String) IO [[String]] -> StateT (M.Map String String) IO [[String]]
go fp front = do go fp front = do
allContents <- liftIO $ filter notHidden `fmap` getDirectoryContents fp allContents <- liftIO $ (sort . filter notHidden) `fmap` getDirectoryContents fp
let fullPath :: String -> String let fullPath :: String -> String
fullPath f = fp ++ '/' : f fullPath f = fp ++ '/' : f
files <- liftIO $ filterM (doesFileExist . fullPath) allContents files <- liftIO $ filterM (doesFileExist . fullPath) allContents