hlint 1.8.23 → 1.8.24

raw patch · 2 files changed

+24/−23 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• data/hlint.ghci +23/−22
• hlint.cabal +1/−1

@@ -2,30 +2,31 @@ -- Begin copied material. -- <http://www.cs.kent.ac.uk/people/staff/cr3/toolbox/haskell/dot-squashed.ghci641> :{-let redir varcmd = case break Data.Char.isSpace varcmd of-                       (var,_:cmd) -> return $ unlines [":set -fno-print-bind-result",-                                                       "tmp <- System.Directory.getTemporaryDirectory",-                                                       "(f,h) <- System.IO.openTempFile tmp \"ghci\"",-                                                       "sto <- GHC.Handle.hDuplicate System.IO.stdout",-                                                       "GHC.Handle.hDuplicateTo h System.IO.stdout",-                                                       "System.IO.hClose h",-                                                       cmd,-                                                       "GHC.Handle.hDuplicateTo sto System.IO.stdout",-                                                       "let readFileNow f = readFile f >>=-                                                          \\t->Data.List.length t `seq` return t",-                                                       var++" <- readFileNow f",-                                                       "System.Directory.removeFile f"]-                       _ -> return "putStrLn \"usage: :redir <var> <cmd>\""-:def redir cmdHelp redir ":redir <var> <cmd>\t-- execute <cmd>, redirecting stdout to <var>"+:def redir \varcmd -> return $+        case break Data.Char.isSpace varcmd of+            (var,_:cmd) -> unlines+                [":set -fno-print-bind-result"+                ,"tmp <- System.Directory.getTemporaryDirectory"+                ,"(f,h) <- System.IO.openTempFile tmp \"ghci\""+                ,"sto <- GHC.Handle.hDuplicate System.IO.stdout"+                ,"GHC.Handle.hDuplicateTo h System.IO.stdout"+                ,"System.IO.hClose h"+                ,cmd+                ,"GHC.Handle.hDuplicateTo sto System.IO.stdout"+                ,"let readFileNow f = readFile f >>= \\t->Data.List.length t `seq` return t"+                ,var++" <- readFileNow f"+                ,"System.Directory.removeFile f"+                ]+            _ -> "putStrLn \"usage: :redir <var> <cmd>\"" :}  --- Integration with the hlint code style tool :{-:def hlint const $ return $ unlines [":unset +t +s",-                                    ":set -w",-                                    ":redir hlintvar1 :show modules",-                                    ":cmd return (\":! hlint \" ++ (concat $ Data.List.intersperse \" \"-                                      (map (fst . break (==',') . Data.List.drop 2 . snd .-                                      break (== '(')) $ lines hlintvar1)))",-                                    ":set +t +s -Wall"]+:def hlint \extra -> return $ unlines+        [":unset +t +s"+        ,":set -w"+        ,":redir hlintvar1 :show modules"+        ,":cmd return $ \":! hlint \" ++ unwords (map (takeWhile (/=',') . drop 2 . dropWhile (/= '(')) $ lines hlintvar1) ++ \" \" ++ " ++ show extra+        ,":set +t +s -Wall"+        ] :}

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               hlint-version:            1.8.23+version:            1.8.24 -- license is GPL v2 only license:            GPL license-file:       LICENSE