36 lines
1.2 KiB
Diff
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
|