#54: INTERNAL ERROR: build

[GHC-2]

#54: INTERNAL ERROR: build
--------------------------+-------------------------------------------------
 Reporter:  guest         |       Owner:  nobody
     Type:  defect        |      Status:  new    
 Priority:  major         |   Milestone:        
Component:  build system  |     Version:  current
 Keywords:                |  
--------------------------+-------------------------------------------------
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
_______________________________________________
Hugs-Bugs mailing list
Hugs-Bugs@...
http://www.haskell.org/mailman/listinfo/hugs-bugs

[GHC-2]

#54: INTERNAL ERROR: build
---------------------+------------------------------------------------------
  Reporter:  guest   |       Owner:  nobody
      Type:  defect  |      Status:  new    
  Priority:  major   |   Milestone:        
 Component:  hugs    |     Version:  current
Resolution:          |    Keywords:        
---------------------+------------------------------------------------------
Changes (by ross):

  * component:  build system => hugs

Comment:

 You didn't mention which version of Hugs you're using, or on what system.
 I'm unable to reproduce this with the Sep 2006 release under Linux.

--
Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/54>
Hugs <http://www.haskell.org/hugs/>
Hugs 98, an interpreter for Haskell
_______________________________________________
Hugs-Bugs mailing list
Hugs-Bugs@...
http://www.haskell.org/mailman/listinfo/hugs-bugs

[GHC-2]

#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
_______________________________________________
Hugs-Bugs mailing list
Hugs-Bugs@...
http://www.haskell.org/mailman/listinfo/hugs-bugs