From 7f39415600a808c7664520a435eb45cf8d82f7ce Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Jun 2012 12:50:06 -0400
Subject: force thunk for precalculated value

---
 Git/UpdateIndex.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Git')

diff --git a/Git/UpdateIndex.hs b/Git/UpdateIndex.hs
index a32db8b9d..faffeec66 100644
--- a/Git/UpdateIndex.hs
+++ b/Git/UpdateIndex.hs
@@ -5,6 +5,8 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE BangPatterns #-}
+
 module Git.UpdateIndex (
 	Streamer,
 	pureStreamer,
@@ -29,7 +31,7 @@ type Streamer = (String -> IO ()) -> IO ()
 
 {- A streamer with a precalculated value. -}
 pureStreamer :: String -> Streamer
-pureStreamer s = \streamer -> streamer s
+pureStreamer !s = \streamer -> streamer s
 
 {- Streams content into update-index from a list of Streamers. -}
 streamUpdateIndex :: Repo -> [Streamer] -> IO ()
-- 
cgit v1.2.3