Revision 5182e970 hscan.hs
b/hscan.hs | ||
---|---|---|
28 | 28 |
module Main (main) where |
29 | 29 |
|
30 | 30 |
import Data.List |
31 |
import Data.Maybe (isJust, fromJust) |
|
31 |
import Data.Maybe (isJust, fromJust, fromMaybe)
|
|
32 | 32 |
import Monad |
33 | 33 |
#ifdef NO_CURL |
34 | 34 |
import System (exitWith, ExitCode(..)) |
... | ... | |
174 | 174 |
"t_disk" "f_disk" "Score" |
175 | 175 |
|
176 | 176 |
when (null clusters) $ do |
177 |
let lsock = case optLuxi opts of |
|
178 |
Just s -> s |
|
179 |
Nothing -> defaultLuxiSocket |
|
177 |
let lsock = fromMaybe defaultLuxiSocket (optLuxi opts) |
|
180 | 178 |
let name = local |
181 | 179 |
input_data <- Luxi.loadData lsock |
182 | 180 |
writeData nlen name opts (processData input_data) |
Also available in: Unified diff