purscheck.hs

#!/usr/bin/env stack
-- stack --resolver lts-13.26 script --package purescript --extra-dep aeson-1.4.7.1 --extra-dep serialise-0.2.2.0 --extra-dep cborg-0.2.2.0 --extra-dep happy-1.19.9 --extra-dep language-javascript-0.7.0.0 --extra-dep network-3.0.1.1 --extra-dep these-1.0.1 --extra-dep semialign-1 --extra-dep assoc-1.0.1 --extra-dep bifunctors-5.5.7 --extra-dep th-abstraction-0.3.2.0 --extra-dep time-compat-1.9.3 --package text --optimize

{-# LANGUAGE LambdaCase #-}

import Data.List
import Data.List.NonEmpty (toList)
import qualified Data.Text.IO as T
import Language.PureScript.CST.Errors
import Language.PureScript.CST.Parser
import System.Environment
import System.Exit

main = do
  fp <- getArgs >>= \case
    [fp] -> pure fp
    _ -> die "No input file specified"
  file <- T.readFile fp
  case parse file of
    Right _ -> pure ()
    Left errs ->
      die
        $ unlines
        $ ([fp] ++)
        $ intersperse ""
        $ map (("  - " ++) . prettyPrintError)
        $ toList errs