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 /pp/pp.hs | |
parent | b62c9e3e603a068a9ecfd215c1aeceb74da4dbef (diff) |
~ Move pp executable to examples
Diffstat (limited to 'pp/pp.hs')
-rw-r--r-- | pp/pp.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/pp/pp.hs b/pp/pp.hs deleted file mode 100644 index 7163754..0000000 --- a/pp/pp.hs +++ /dev/null | |||
@@ -1,14 +0,0 @@ | |||
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 | ||