Limit scope of -Wno-error=unused-do-binds

This also removes -fno-unused-do-binds from modules that had it inline,
and enables -Wall for the general build.

compiler/src/Compile.hs

@@ -1,5 +1,3 @@
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
-
 module Compile
   ( Artifacts (..),
     compile,

compiler/src/Gren/Docs.hs

@@ -3,6 +3,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE UnboxedTuples #-}
 {-# OPTIONS_GHC -Wall #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Gren.Docs
   ( Documentation,

compiler/src/Gren/Kernel.hs

@@ -3,6 +3,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE UnboxedTuples #-}
 {-# OPTIONS_GHC -Wall #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Gren.Kernel
   ( Content (..),

compiler/src/Json/Decode.hs

@@ -2,7 +2,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE Rank2Types #-}
 {-# LANGUAGE UnboxedTuples #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind -fno-warn-name-shadowing #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 
 module Json.Decode
   ( fromByteString,

compiler/src/Parse/Declaration.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Parse.Declaration
   ( Decl (..),

compiler/src/Parse/Expression.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Parse.Expression
   ( expression,

compiler/src/Parse/Module.hs

@@ -1,5 +1,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# OPTIONS_GHC -Wall #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
+{-# OPTIONS_GHC -Wno-error=unused-matches #-}
 
 module Parse.Module
   ( fromByteString,

compiler/src/Parse/Pattern.hs

@@ -1,7 +1,8 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE UnboxedTuples #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Parse.Pattern
   ( term,

compiler/src/Parse/Primitives.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE Rank2Types #-}
 {-# LANGUAGE UnboxedTuples #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind -fno-warn-name-shadowing #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 
 module Parse.Primitives
   ( fromByteString,

compiler/src/Parse/Space.hs

@@ -1,7 +1,6 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE UnboxedTuples #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
 
 module Parse.Space
   ( Parser,

compiler/src/Parse/String.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE MagicHash #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE UnboxedTuples #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
 
 module Parse.String
   ( string,

compiler/src/Parse/Type.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-}
+-- Temporary while implementing gren format
+{-# OPTIONS_GHC -Wno-error=unused-do-bind #-}
 
 module Parse.Type
   ( expression,

gren.cabal

@@ -36,11 +36,8 @@ Flag dev {
 Common gren-common
     if flag(dev)
         ghc-options: -O0 -Wall -Werror
-
-        -- temporary while implementing gren format
-        ghc-options: -Wno-error=unused-do-bind -Wno-error=unused-matches
     else
-        ghc-options: -O2 -threaded "-with-rtsopts=-N"
+        ghc-options: -O2 -Wall -threaded "-with-rtsopts=-N"
 
     Hs-Source-Dirs:
         compiler/src

terminal/src/Repl.hs

@@ -326,9 +326,9 @@ annotation =
       err_ _ _ _ = ()
    in do
         name <- PV.lower err
-        PS.chompAndCheckIndent err_ err
+        _ <- PS.chompAndCheckIndent err_ err
         P.word1 0x3A {-:-} err
-        PS.chompAndCheckIndent err_ err
+        _ <- PS.chompAndCheckIndent err_ err
         (_, _) <- P.specialize err_ PT.expression
         PS.checkFreshLine err
         return name