unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-20 09:39:28 +03:00
Code Issues Projects Releases Wiki Activity

automatically run ormolu

Browse Source
This commit is contained in:
dolio 2024-09-24 16:02:50 +00:00 committed by github-actions[bot]
parent 35ebd7becf
commit 23d157e9ff
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
unison-cli/src/Unison/CommandLine/InputPatterns.hs
View File

@ -2991,9 +2991,10 @@ compileScheme =
"compile.native"
[]
I.Hidden
[("definition to compile", Required, exactDefinitionTermQueryArg),
("output file", Required, filePathArg),
("profile", Optional, profileArg)]
[ ("definition to compile", Required, exactDefinitionTermQueryArg),
("output file", Required, filePathArg),
("profile", Optional, profileArg)
]
( P.wrapColumn2
[ ( makeExample compileScheme ["main", "file", "profile"],
"Creates stand alone executable via compilation to"
@ -3006,20 +3007,21 @@ compileScheme =
$ \case
[main, file] -> mkCompileScheme False file main
[main, file, prof] -> do
unsupportedStructuredArgument compileScheme "profile" prof >>=
\case
unsupportedStructuredArgument compileScheme "profile" prof
>>= \case
"profile" -> mkCompileScheme True file main
parg -> Left . P.text $
"I expected the third argument to be `profile`, but"
<> " instead recieved `" <> Text.pack parg <> "`."
parg ->
Left . P.text $
"I expected the third argument to be `profile`, but"
<> " instead recieved `"
<> Text.pack parg
<> "`."
args -> wrongArgsLength "two or three arguments" args
where
mkCompileScheme pf fn mn =
Input.CompileSchemeI pf . Text.pack
<$> unsupportedStructuredArgument compileScheme "a file name" fn
<*> handleHashQualifiedNameArg mn
mkCompileScheme pf fn mn =
Input.CompileSchemeI pf . Text.pack
<$> unsupportedStructuredArgument compileScheme "a file name" fn
<*> handleHashQualifiedNameArg mn
createAuthor :: InputPattern
createAuthor =