Revision c6484f0b Ganeti/HTools/Utils.hs
b/Ganeti/HTools/Utils.hs | ||
---|---|---|
38 | 38 |
|
39 | 39 |
import Data.List |
40 | 40 |
import Control.Monad |
41 |
import System |
|
42 |
import System.IO |
|
43 | 41 |
import qualified Text.JSON as J |
44 | 42 |
import Text.Printf (printf) |
45 | 43 |
|
46 |
import Ganeti.HTools.Types |
|
47 |
|
|
48 | 44 |
import Debug.Trace |
49 | 45 |
|
50 | 46 |
-- * Debug functions |
... | ... | |
69 | 65 |
where (x, xs) = break (== sep) s |
70 | 66 |
ys = drop 1 xs |
71 | 67 |
|
72 |
-- | Partial application of sepSplit to @'.'@ |
|
73 |
commaSplit :: String -> [String] |
|
74 |
commaSplit = sepSplit ',' |
|
75 |
|
|
76 | 68 |
-- | Simple version of 'fst' for a triple |
77 | 69 |
fst3 :: (a, b, c) -> a |
78 | 70 |
fst3 (a, _, _) = a |
Also available in: Unified diff