diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-10 12:50:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-10 12:50:15 -0400 |
| commit | 7f39415600a808c7664520a435eb45cf8d82f7ce (patch) | |
| tree | 1eeb8a1d9ec65280f7b133f87aa0cc57b4d0f232 | |
| parent | 7f823b56af88f28eee450fa39b7aa691a6745e92 (diff) | |
force thunk for precalculated value
| -rw-r--r-- | Git/UpdateIndex.hs | 4 |
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 () |