From 931a1d5b9ea486b52c14615510630937ab166ad1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 21 Feb 2016 02:37:59 -0800
Subject: [PATCH] hlint

---
 hledger-lib/Hledger/Data/Journal.hs | 7 +++----
 site/hakyll-std/hakyll-std.hs       | 2 +-
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index babf2667d..29097393d 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -64,11 +64,10 @@ import Data.List
 -- import Data.Map (findWithDefault)
 import Data.Maybe
 import Data.Ord
-import Safe (headMay)
+import Safe (headMay, headDef)
 import Data.Time.Calendar
 import Data.Time.LocalTime
 import Data.Tree
-import Safe (headDef)
 import System.Time (ClockTime(TOD))
 import Test.HUnit
 import Text.Printf
@@ -173,11 +172,11 @@ journalTransactionAt Journal{jtxns=ts} i =
 -- | Get the transaction that appeared immediately after this one in the input stream, if any.
 journalNextTransaction :: Journal -> Transaction -> Maybe Transaction
 journalNextTransaction j t = journalTransactionAt j (tindex t + 1)
-  
+
 -- | Get the transaction that appeared immediately before this one in the input stream, if any.
 journalPrevTransaction :: Journal -> Transaction -> Maybe Transaction
 journalPrevTransaction j t = journalTransactionAt j (tindex t - 1)
-  
+
 -- | Unique transaction descriptions used in this journal.
 journalDescriptions :: Journal -> [String]
 journalDescriptions = nub . sort . map tdescription . jtxns
diff --git a/site/hakyll-std/hakyll-std.hs b/site/hakyll-std/hakyll-std.hs
index 9c1aaeee7..fc6ea69ad 100755
--- a/site/hakyll-std/hakyll-std.hs
+++ b/site/hakyll-std/hakyll-std.hs
@@ -143,4 +143,4 @@ main = do
 
   -- can't do anything here, hakyll exits
 
-linkReadmeToIndex = system "ln -sf README.html _site/index.html" >> return ()
+linkReadmeToIndex = void $ system "ln -sf README.html _site/index.html"