PastePipe 1.6 → 1.7
raw patch · 3 files changed
+10/−3 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Utils.PastePipe: channel :: Config -> String
- Utils.PastePipe: Config :: String -> String -> String -> String -> Bool -> Config
+ Utils.PastePipe: Config :: String -> String -> String -> String -> String -> Bool -> Config
Files
- PastePipe.cabal +1/−1
- src/Main.hs +1/−1
- src/Utils/PastePipe.hs +8/−1
PastePipe.cabal view
@@ -1,5 +1,5 @@ name: PastePipe-version: 1.6+version: 1.7 synopsis: CLI for pasting to lpaste.net description: PastePipe reads from standard in and posts to <lpaste.net>. It will auto-detect your username, but that can be
src/Main.hs view
@@ -6,7 +6,7 @@ -- -- Entry point for the executable, using "Utils.PastePipe". ----- A CLI for lpaste.org.+-- A CLI for lpaste.net -- -- Authored by Rogan Creswick (creswick_at_googles_mail_service.) --
src/Utils/PastePipe.hs view
@@ -19,6 +19,7 @@ -- | Configuration type for PastePipe: data Config = Config { userName :: String , language :: String+ , channel :: String , title :: String , uri :: String , test :: Bool }@@ -33,6 +34,11 @@ , language = "haskell" &= help "The language used for syntax highlighting" &= typ "LANGUAGE"+ , channel = ""+ &= help "#channel to post your snippet. The lpaste bot will not post the message if you do not set --title=TITLE and --user=<YOUR NICK>"+ &= typ "#channel-name"+ &= name "channel"+ &= name "c" , title = "" &= help "The title of the snippet" &= typ "TITLE"@@ -88,7 +94,7 @@ , ("author", userName conf) , ("paste", str) , ("language", language conf)- , ("channel", "")+ , ("channel", channel conf) , ("email", "") ] @@ -97,6 +103,7 @@ putStrLn $ "uri: "++uri conf putStrLn $ "user: "++userName conf putStrLn $ "lang: "++language conf+ putStrLn $ "chan: "++channel conf putStrLn $ "title: "++title conf putStrLn $ "content: "++str return $ fromJust $ parseURI $ uri conf