picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Merge pull request #64 from vaibhavsagar/refactor-main

Browse source 
Reduce code duplication in main/Main.hs
This commit is contained in:
John Wiegley 2017-09-23 07:52:40 -07:00 committed by GitHub
parent b1a04469bb 397dd29297
commit 4df691d2b3
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
main/Main.hs
View file

@ -9,15 +9,13 @@ import System.IO
import Text.PrettyPrint.ANSI.Leijen
nix :: FilePath -> IO ()
nix path = do
res <- parseNixFile path
case res of
Failure e -> hPutStrLn stderr $ "Parse failed: " ++ show e
Success n -> do
displayIO stdout $ renderPretty 0.4 80 (prettyNix n)
nix path = parseNixFile path >>= displayNExpr
nixString :: String -> IO ()
nixString s = case parseNixString s of
nixString = displayNExpr . parseNixString
displayNExpr :: Result NExpr -> IO ()
displayNExpr = \case
Success n -> displayIO stdout $ renderPretty 0.4 80 (prettyNix n)
Failure e -> hPutStrLn stderr $ "Parse failed: " ++ show e