Revision 3ed46bb7 hspace.hs

b/hspace.hs
212 212 
                 then '\'':v ++ "'"
213 213 
                 else v
214 214 

  		





  215
  
  
    
-- | Format a list of key/values as a shell fragment


  		





  
  215
  
    
-- | Format a list of key\/values as a shell fragment


  		





  216
  216
  
    
printKeys :: [(String, String)] -> IO ()


  		





  217
  217
  
    
printKeys = mapM_ (\(k, v) ->


  		





  218
  218
  
    
                   printf "HTS_%s=%s\n" (map toUpper k) (ensureQuoted v))


  		












Also available in:
  Unified diff