mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

force thunk for precalculated value

Browse source
This commit is contained in:
Joey Hess 2012-06-10 12:50:06 -04:00
parent 7f823b56af
commit 7f39415600
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/UpdateIndex.hs
View file

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