gistfile1.txt

{-# LANGUAGE NoMonomorphismRestriction #-}                                                                                                                                        
                                                                                                                                                                                  
import Text.ParserCombinators.Parsec                                                                                                                                              
                                                                                                                                                                                  
empty = many (oneOf "\t\n\r ")                                                                                                                                                    
                                                                                                                                                                                  
inBraces = between (char '(') (char ')')                                                                                                                                          
                                                                                                                                                                                  
commaList p = sepBy (between empty empty p) (char ',')                                                                                                                            
                                                                                                                                                                                  
array p = between (char '[') (char ']') (commaList p)                                                                                                                             
                                                                                                                                                                                  
identifier = many1 alphaNum                                                                                                                                                       
                                                                                                                                                                                  
quoted quote = do                                                                                                                                                                 
  begin <- (char quote)                                                                                                                                                           
  result <- (many (noneOf [quote]))                                                                                                                                               
  end <- (char quote)                                                                                                                                                             
  return result                                                                                                                                                                   
                                                                                                                                                                                  
jsString = choice [(quoted '\''), (quoted '"')]                                                                                                                                   
                                                                                                                                                                                  
amdModuleHeader = do                                                                                                                                                              
  string "define(" >> empty                                                                                                                                                       
  modules <- array jsString                                                                                                                                                       
  char ',' >> empty >> string "function("                                                                                                                                         
  names <- commaList identifier                                                                                                                                                   
  string "){"                                                                                                                                                                     
  return (modules, names)