too much space

This commit is contained in:
nek0 2017-12-03 04:00:52 +01:00
parent 4525c7c08b
commit ea4ec9b349

View file

@ -160,7 +160,7 @@ main =
sortIdentifiersByDate :: [Identifier] -> [Identifier] sortIdentifiersByDate :: [Identifier] -> [Identifier]
sortIdentifiersByDate = sortIdentifiersByDate =
sortBy byDate sortBy byDate
where where
byDate id1 id2 = byDate id1 id2 =
let fn1 = takeFileName $ toFilePath id1 let fn1 = takeFileName $ toFilePath id1