[Hugs] #54: INTERNAL ERROR: build

[Hugs]

#54: INTERNAL ERROR: build
---------------------+------------------------------------------------------
  Reporter:  guest   |       Owner:  nobody 
      Type:  defect  |      Status:  new    
  Priority:  major   |   Milestone:         
 Component:  hugs    |     Version:  current
Resolution:          |    Keywords:         
---------------------+------------------------------------------------------
Old description:

> Main> fvsp 450
> INTERNAL ERROR: build
> Please report this Hugs bug to http://hackage.haskell.org/trac/hugs
>
> //code
>
> pots :: Num a => a -> [a]
> pots x = scanl (*) 1 (repeat x)
>
> factoriales :: [Integer]
> factoriales = scanl (*) 1 [1..]
>
> fvsp :: Integer -> Int
> fvsp n = length (takeWhile not (zipWith (<) (pots n) factoriales))

New description:

 {{{
 Main> fvsp 450
 INTERNAL ERROR: build
 Please report this Hugs bug to http://hackage.haskell.org/trac/hugs
 }}}
 code:
 {{{
 pots :: Num a => a -> [a]
 pots x = scanl (*) 1 (repeat x)

 factoriales :: [Integer]
 factoriales = scanl (*) 1 [1..]

 fvsp :: Integer -> Int
 fvsp n = length (takeWhile not (zipWith (<) (pots n) factoriales))
 }}}

-- 
Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/54>
Hugs <http://www.haskell.org/hugs/>
Hugs 98, an interpreter for Haskell