diff options
| author | joe <joe@jerkface.net> | 2014-05-11 20:11:35 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-05-11 20:11:35 -0400 |
| commit | 5c1b54b54622b18fe3fd57a5c2c892613d33a7ba (patch) | |
| tree | 3f64dc577d08284295fe6e7842e33ab9e02c9fd1 /TimeUtil.hs | |
| parent | 03551eaa9767db678a521f082d00b88665d0f3da (diff) | |
toStrict is not in wheezy, fixing build
Diffstat (limited to 'TimeUtil.hs')
| -rw-r--r-- | TimeUtil.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TimeUtil.hs b/TimeUtil.hs index 77e85bf..1c241a4 100644 --- a/TimeUtil.hs +++ b/TimeUtil.hs | |||
| @@ -85,7 +85,7 @@ dateParser = ScanningParser ffst pbdy | |||
| 85 | ffst bs = do | 85 | ffst bs = do |
| 86 | let (h,bs') = L.splitAt 6 bs | 86 | let (h,bs') = L.splitAt 6 bs |
| 87 | if h=="Date: " | 87 | if h=="Date: " |
| 88 | then return $ parseRFC2822 $ L.toStrict bs' | 88 | then return $ parseRFC2822 $ foldr1 S.append $ L.toChunks bs' |
| 89 | else Nothing | 89 | else Nothing |
| 90 | pbdy date xs = (date,xs) | 90 | pbdy date xs = (date,xs) |
| 91 | 91 | ||