|
| 1 | +{-# LANGUAGE CPP #-} |
1 | 2 | {-# LANGUAGE DeriveGeneric #-} |
2 | 3 |
|
3 | 4 | module Options |
@@ -64,26 +65,19 @@ options = |
64 | 65 | ] |
65 | 66 |
|
66 | 67 | usage :: String |
| 68 | +usage = |
67 | 69 | #if MIN_VERSION_Agda(2,7,0) |
68 | | -usage = "Agda v2.7.0.1 Language Server v4\nUsage: als [Options...]\n" |
69 | | -#endif |
70 | | -#if MIN_VERSION_Agda(2,6,4) |
71 | | -usage = "Agda v2.6.4.3 Language Server v4\nUsage: als [Options...]\n" |
72 | | -#endif |
73 | | -#if MIN_VERSION_Agda(2,6,3) |
74 | | -usage = "Agda v2.6.3 Language Server v4\nUsage: als [Options...]\n" |
| 70 | + "Agda v2.7.0.1 Language Server v4\nUsage: als [Options...]\n" |
| 71 | +#elif MIN_VERSION_Agda(2,6,4) |
| 72 | + "Agda v2.6.4.3 Language Server v4\nUsage: als [Options...]\n" |
| 73 | +#elif MIN_VERSION_Agda(2,6,3) |
| 74 | + "Agda v2.6.3 Language Server v4\nUsage: als [Options...]\n" |
| 75 | +#else |
| 76 | + "Unsupported Agda version\n" |
75 | 77 | #endif |
76 | 78 |
|
77 | 79 | usageAboutAgdaOptions :: String |
78 | | -usageAboutAgdaOptions = |
79 | | - "\n\ |
80 | | - \ +AGDA [Options for Agda ...] -AGDA\n\ |
81 | | - \ To pass command line options to Agda, put them in between '+AGDA' and '-AGDA'\n\ |
82 | | - \ For example:\n\ |
83 | | - \ als -p=3000 +AGDA --cubical -AGDA\n\ |
84 | | - \ If you are using agda-mode on VS Code, put them in the Settings at:\n\ |
85 | | - \ agdaMode.connection.commandLineOptions\n\ |
86 | | - \" |
| 80 | +usageAboutAgdaOptions = "\n +AGDA [Options for Agda ...] -AGDA\n To pass command line options to Agda, put them in between '+AGDA' and '-AGDA'\n For example:\n als -p=3000 +AGDA --cubical -AGDA\n If you are using agda-mode on VS Code, put them in the Settings at:\n agdaMode.connection.commandLineOptions\n" |
87 | 81 |
|
88 | 82 | parseOpts :: [String] -> IO (Options, [String]) |
89 | 83 | parseOpts argv = case getOpt Permute options argv of |
|
0 commit comments