#3577: Complete support for Data Parallel Haskell
--------------------------------------+-------------------------------------
    Reporter:  rl                     |        Owner:  rl                
        Type:  feature request        |       Status:  new               
    Priority:  normal                 |    Milestone:  _|_               
   Component:  Data Parallel Haskell  |      Version:  6.13              
    Keywords:                         |   Difficulty:  Unknown           
          Os:  Unknown/Multiple       |     Testcase:                    
Architecture:  Unknown/Multiple       |      Failure:  Compile-time crash
--------------------------------------+-------------------------------------

Comment(by benl):

 Can't pattern match on values of `[::]` type.

 Rewrite this:
 {{{
 joinEmpty :: [:[:Word8:]:] -> [:[:Word8:]:]
 joinEmpty ws
  = case ws of
         [:[::]:]        -> [::]
         _               -> ws
 }}}

 as:
 {{{
 joinEmpty :: [:[:Word8:]:] -> [:[:Word8:]:]
 joinEmpty ws
         | lengthP ws I.== 1
         && lengthP (ws !: 0) I.== 0
         = [::]

         | otherwise
         = ws
 }}}

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/3577#comment:5>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler
_______________________________________________
Glasgow-haskell-bugs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs

Reply via email to