Skip to content

Instantly share code, notes, and snippets.

@mpickering

mpickering/TestParser.hs

Created August 16, 2024 13:12
Show Gist options
  • Save mpickering/9ac21a3730388d7260e7c0c50a80c290 to your computer and use it in GitHub Desktop.
Save mpickering/9ac21a3730388d7260e7c0c50a80c290 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
TestParser.hs
module Main where
import Distribution.Client.ProjectConfig
import Distribution.Client.HttpUtils
import Distribution.Client.DistDirLayout
import Distribution.Client.RebuildMonad
import System.Environment
main = do
[root] <- getArgs
let dd = defaultDistDirLayout (ProjectRootImplicit root) Nothing Nothing
runRebuild root (readProjectFileSkeleton minBound plainHttpTransport dd "" "project")
putStrLn ("Parser passed: " ++ root)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment