Revision 885759da src/Ganeti/THH/Types.hs

b/src/Ganeti/THH/Types.hs
35 35 
  ) where
36 36 

  		





  37
  37
  
    
import Control.Arrow (first)


  		





  38
  
  
    
import Control.Monad (liftM)


  		





  
  38
  
    
import Control.Monad (liftM, replicateM)


  		





  39
  39
  
    
import Language.Haskell.TH


  		





  40
  40
  
    
import qualified Text.JSON as J


  		





  41
  41
  
    

  		





  ......




  89
  89
  
    
    uncurryN 1 = [| (. getOneTuple) |]


  		





  90
  90
  
    
    uncurryN n = do


  		





  91
  91
  
    
      f <- newName "f"


  		





  92
  
  
    
      ps <- mapM newName (replicate n "x")


  		





  
  92
  
    
      ps <- replicateM n (newName "x")


  		





  93
  93
  
    
      return $ LamE [VarP f, TupP $ map VarP ps]


  		





  94
  94
  
    
                 (foldl AppE (VarE f) $ map VarE ps)


  		





  95
  95
  
    

  		












Also available in:
  Unified diff