tools: misc Shake, pandoc filter fixes
This commit is contained in:
		
							parent
							
								
									b5546fd7b6
								
							
						
					
					
						commit
						8ce5c84f35
					
				
							
								
								
									
										10
									
								
								Shake.hs
									
									
									
									
									
								
							
							
						
						
									
										10
									
								
								Shake.hs
									
									
									
									
									
								
							| @ -1,14 +1,16 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack exec --verbosity=info | {- stack exec | ||||||
|  |    --verbosity=info | ||||||
|  |    --stack-yaml=stack-ghc8.2.yaml | ||||||
|    --package base-prelude |    --package base-prelude | ||||||
|    --package directory |    --package directory | ||||||
|    --package extra |    --package extra | ||||||
|    --package pandoc |  | ||||||
|    --package safe |    --package safe | ||||||
|    --package shake |    --package shake | ||||||
|    --package time |    --package time | ||||||
|    -- ghc |    -- ghc | ||||||
| -} | -} | ||||||
|  | --   --package pandoc | ||||||
| {- | {- | ||||||
| One of two project scripts files (Makefile, Shake.hs). | One of two project scripts files (Makefile, Shake.hs). | ||||||
| This one provides a stronger programming language and more | This one provides a stronger programming language and more | ||||||
| @ -42,12 +44,12 @@ not having to write :: Action ExitCode after a non-final cmd | |||||||
| 
 | 
 | ||||||
| import                Prelude () | import                Prelude () | ||||||
| import "base-prelude" BasePrelude | import "base-prelude" BasePrelude | ||||||
|  | import "directory"    System.Directory as S (getDirectoryContents) | ||||||
| import "extra"        Data.List.Extra | import "extra"        Data.List.Extra | ||||||
| import "safe"         Safe | import "safe"         Safe | ||||||
| import "shake"        Development.Shake | import "shake"        Development.Shake | ||||||
| import "shake"        Development.Shake.FilePath | import "shake"        Development.Shake.FilePath | ||||||
| import "time"         Data.Time | import "time"         Data.Time | ||||||
| import "directory"    System.Directory as S (getDirectoryContents) |  | ||||||
| 
 | 
 | ||||||
| usage = unlines | usage = unlines | ||||||
|   ["Usage:" |   ["Usage:" | ||||||
| @ -183,7 +185,7 @@ main = do | |||||||
| 
 | 
 | ||||||
|     pandocFilters |%> \out -> do |     pandocFilters |%> \out -> do | ||||||
|       need [out <.> "hs"] |       need [out <.> "hs"] | ||||||
|       cmd ("stack ghc") out |       cmd ("stack --stack-yaml=stack-ghc8.2.yaml ghc") out | ||||||
| 
 | 
 | ||||||
|     -- man pages |     -- man pages | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,6 +1,9 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info | {- stack runghc | ||||||
|    --package pandoc |    --verbosity info | ||||||
|  |    --stack-yaml=stack-ghc8.2.yaml | ||||||
|  |    --package pandoc-types | ||||||
|  |    --package safe | ||||||
|    --package split |    --package split | ||||||
| -} | -} | ||||||
| -- Remove a table of contents marker | -- Remove a table of contents marker | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user