Revision cc532bdd htools/hspace.hs
b/htools/hspace.hs | ||
---|---|---|
25 | 25 |
|
26 | 26 |
module Main (main) where |
27 | 27 |
|
28 |
import Control.Monad |
|
28 | 29 |
import Data.Char (toUpper, isAlphaNum) |
29 | 30 |
import Data.List |
30 | 31 |
import Data.Maybe (isJust, fromJust) |
31 | 32 |
import Data.Ord (comparing) |
32 |
import Monad |
|
33 | 33 |
import System (exitWith, ExitCode(..)) |
34 | 34 |
import System.IO |
35 | 35 |
import qualified System |
... | ... | |
171 | 171 |
|
172 | 172 |
-- | Ensure a value is quoted if needed |
173 | 173 |
ensureQuoted :: String -> String |
174 |
ensureQuoted v = if not (all (\c -> (isAlphaNum c || c == '.')) v)
|
|
174 |
ensureQuoted v = if not (all (\c -> isAlphaNum c || c == '.') v)
|
|
175 | 175 |
then '\'':v ++ "'" |
176 | 176 |
else v |
177 | 177 |
|
Also available in: Unified diff