projects
/
ganeti-local
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make Query operators enforce strictness
[ganeti-local]
/
htools
/
Ganeti
/
HTools
/
Program
/
Hail.hs
diff --git
a/htools/Ganeti/HTools/Program/Hail.hs
b/htools/Ganeti/HTools/Program/Hail.hs
index
c2f6473
..
adcddf9
100644
(file)
--- a/
htools/Ganeti/HTools/Program/Hail.hs
+++ b/
htools/Ganeti/HTools/Program/Hail.hs
@@
-43,14
+43,15
@@
import Ganeti.HTools.ExtLoader (maybeSaveData, loadExternalData)
import Ganeti.Utils
-- | Options list and functions.
import Ganeti.Utils
-- | Options list and functions.
-options :: [OptType]
+options :: IO [OptType]
options =
options =
- [ oPrintNodes
- , oSaveCluster
- , oDataFile
- , oNodeSim
- , oVerbose
- ]
+ return
+ [ oPrintNodes
+ , oSaveCluster
+ , oDataFile
+ , oNodeSim
+ , oVerbose
+ ]
-- | The list of arguments supported by the program.
arguments :: [ArgCompletion]
-- | The list of arguments supported by the program.
arguments :: [ArgCompletion]