summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-10 12:50:06 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-10 12:50:15 -0400
commit7f39415600a808c7664520a435eb45cf8d82f7ce (patch)
tree1eeb8a1d9ec65280f7b133f87aa0cc57b4d0f232
parent7f823b56af88f28eee450fa39b7aa691a6745e92 (diff)
force thunk for precalculated value
-rw-r--r--Git/UpdateIndex.hs4
1 files changed, 3 insertions, 1 deletions
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 ()