diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 23:52:37 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 23:52:37 +0400 |
| commit | de857a4b8e96c2a9ea4cec974442f08a93cb0098 (patch) | |
| tree | d99774167528adc782e978bc36baf233aa8543d9 /examples | |
| parent | b62c9e3e603a068a9ecfd215c1aeceb74da4dbef (diff) | |
~ Move pp executable to examples
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/pp.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/pp.hs b/examples/pp.hs new file mode 100644 index 0000000..7163754 --- /dev/null +++ b/examples/pp.hs | |||
| @@ -0,0 +1,14 @@ | |||
| 1 | module Main (main) where | ||
| 2 | |||
| 3 | import Data.BEncode | ||
| 4 | import qualified Data.ByteString as B | ||
| 5 | import System.IO | ||
| 6 | import System.Environment | ||
| 7 | |||
| 8 | main :: IO () | ||
| 9 | main = do | ||
| 10 | path : _ <- getArgs | ||
| 11 | content <- B.readFile path | ||
| 12 | case decode content of | ||
| 13 | Left e -> hPutStrLn stderr e | ||
| 14 | Right be -> print $ ppBEncode be \ No newline at end of file | ||