vegowotenks/solvedoku
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: documentation and box layout

Browse source
This commit is contained in:
vegowotenks 2025-07-18 18:05:38 +02:00
parent cd5de79e24
commit e1f2d5b5ef
6 changed files with 68 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

7
app/Main.hs
View file

@ -6,7 +6,7 @@ import qualified Sudoku
import qualified Sudoku.Solve as Solve
import qualified Sudoku.Render as Render
import Sudoku.State (State)
import Options.Applicative (subparser, command, info, Parser, progDesc, execParser)
import Options.Applicative (subparser, command, info, Parser, progDesc, execParser, idm, customExecParser, ParserPrefs, showHelpOnEmpty, prefs)
import System.Exit (exitFailure)
data Mode
@ -21,7 +21,7 @@ parseMode = subparser
main :: IO ()
main = do
mode <- execParser (info parseMode mempty)
mode <- customExecParser optparsePreferences (info parseMode idm)
input <- Text.getContents
sudoku <- case runParser Sudoku.parse "<stdin>" input of
Left errorBundle -> (Text.putStr . Text.pack . errorBundlePretty $ errorBundle) >> exitFailure
@ -34,3 +34,6 @@ main = do
in Render.hints hints
optparsePreferences :: ParserPrefs
optparsePreferences = prefs showHelpOnEmpty