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