Strange closure type 17 internal error

resample: internal error: evacuate(static): strange closure type 17

(GHC version 7.4.2 for x86_64_unknown_linux)

Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug

module Resample where

import Data.List
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString.Lazy.Char8 as BL
import qualified Data.ByteString.Lazy as BB

import qualified Data.Vector as V
import System.Random.Mersenne
import Control.Monad (liftM, replicateM_)

readCollapsed :: FilePath -> IO [(Int, B.ByteString)]
readCollapsed f = ((map (either error id) . unfoldr parse) . BL.lines) `fmap` BL.readFile f

parse :: [BL.ByteString] -> Maybe (Either String (Int, B.ByteString), [BL.ByteString])
parse (c:sq:rest) =
    Just (Right (read $ BL.unpack c, B.concat $ BL.toChunks sq), rest)
parse [] = Nothing
parse fs = let showStanza = unlines (map BL.unpack fs)
               err = Left $ "Resample: illegal number of lines: " ++ showStanza
           in Just (err, [])

uncollapse :: (Int, B.ByteString) -> [B.ByteString]
uncollapse (c, sq) = take c $ repeat sq

randomPick' mt vec len = liftM (vec V.!) $ liftM ((flip mod) len) (random mt)

main :: IO ()
main = do
    sqvec <- liftM (V.fromList . Prelude.concatMap uncollapse) $ readCollapsed "/dev/stdin"
    let seqlen = V.length sqvec
    mtgen <- newMTGen Nothing
    replicateM_ 30000000 $ BC.putStrLn =<< randomPick' mtgen sqvec seqlen

Trac metadata

Trac field	Value
Version	7.4.2
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Runtime System
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture