From ea4ec9b349ba7a3e0c1e5167ada3fdaee5b1ea1f Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 3 Dec 2017 04:00:52 +0100 Subject: [PATCH] too much space --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index a8f09e7..b8e4855 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -160,7 +160,7 @@ main = sortIdentifiersByDate :: [Identifier] -> [Identifier] sortIdentifiersByDate = - sortBy byDate + sortBy byDate where byDate id1 id2 = let fn1 = takeFileName $ toFilePath id1