hlint/hlint-1.9.10-build-fixes.patch
2016-06-21 09:59:20 +09:00

36 lines
1.2 KiB
Diff

diff -up hlint-1.9.10/src/HsColour.hs~ hlint-1.9.10/src/HsColour.hs
--- hlint-1.9.10/src/HsColour.hs~ 2014-10-20 06:20:38.000000000 +0900
+++ hlint-1.9.10/src/HsColour.hs 2016-06-21 09:46:30.231542683 +0900
@@ -22,6 +22,6 @@ hsColourConsole = do
return $ TTY.hscolour prefs
hsColourHTML :: String -> String
-hsColourHTML = CSS.hscolour False
+hsColourHTML = CSS.hscolour False 1
#endif
diff -up hlint-1.9.10/src/HSE/FreeVars.hs~ hlint-1.9.10/src/HSE/FreeVars.hs
--- hlint-1.9.10/src/HSE/FreeVars.hs~ 2014-10-20 06:20:38.000000000 +0900
+++ hlint-1.9.10/src/HSE/FreeVars.hs 2016-06-21 09:36:14.757740411 +0900
@@ -3,7 +3,7 @@
module HSE.FreeVars(FreeVars, freeVars, vars, varss, pvars, declBind) where
import HSE.Type
-import Data.Monoid
+import Data.Monoid hiding (Alt)
import qualified Data.Set as Set
import Data.Set(Set)
diff -up hlint-1.9.10/src/Util.hs~ hlint-1.9.10/src/Util.hs
--- hlint-1.9.10/src/Util.hs~ 2014-10-20 06:20:38.000000000 +0900
+++ hlint-1.9.10/src/Util.hs 2016-06-21 09:50:15.080178079 +0900
@@ -61,7 +61,7 @@ listM' x = length x `seq` return x
---------------------------------------------------------------------
-- PRELUDE
-notNull = not . null
+notNull p = not $ null p
headDef :: a -> [a] -> a
headDef x [] = x