Merge pull request #157 from haskell-works/fix-warnings

Fix warnings
haskell-works · Sep 17, 2019 · 47eb53d · 47eb53d
2 parents a7a6c83 + 316d504
commit 47eb53d
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 14 deletions.
diff --git a/.vscode/tasks.json b/.vscode/tasks.json
@@ -5,7 +5,7 @@
       "label": "Build",
       "type": "shell",
       "command": "bash",
-      "args": ["-lc", "cabal new-build && echo 'Done'"],
+      "args": ["-lc", "cabal new-build --enable-tests --enable-benchmarks && echo 'Done'"],
       "group": {
         "kind": "build",
         "isDefault": true
@@ -37,7 +37,7 @@
       "label": "Test",
       "type": "shell",
       "command": "bash",
-      "args": ["-lc", "cabal new-test --enable-tests && echo 'Done'"],
+      "args": ["-lc", "cabal new-test --enable-tests --enable-benchmarks && echo 'Done'"],
       "group": {
         "kind": "test",
         "isDefault": true

diff --git a/app/App/Commands/Count.hs b/app/App/Commands/Count.hs
@@ -23,17 +23,14 @@ import HaskellWorks.Data.RankSelect.CsPoppy1
 import HaskellWorks.Data.TreeCursor
 import Options.Applicative                            hiding (columns)
 
-import qualified App.Commands.Types                                   as Z
-import qualified Data.ByteString                                      as BS
-import qualified Data.ByteString.Internal                             as BSI
-import qualified Data.DList                                           as DL
-import qualified Data.Vector.Storable                                 as DVS
-import qualified HaskellWorks.Data.BalancedParens.RangeMin            as RM
-import qualified HaskellWorks.Data.Json.Standard.Cursor.Fast          as JCF
-import qualified HaskellWorks.Data.Json.Standard.Cursor.Internal.IbBp as IBBP
-import qualified HaskellWorks.Data.RankSelect.CsPoppy.Internal.Alpha1 as A1
-import qualified System.IO                                            as IO
-import qualified System.IO.MMap                                       as IO
+import qualified App.Commands.Types                          as Z
+import qualified Data.ByteString                             as BS
+import qualified Data.ByteString.Internal                    as BSI
+import qualified Data.DList                                  as DL
+import qualified Data.Vector.Storable                        as DVS
+import qualified HaskellWorks.Data.BalancedParens.RangeMin   as RM
+import qualified HaskellWorks.Data.Json.Standard.Cursor.Fast as JCF
+import qualified System.IO.MMap                              as IO
 
 siblings :: GenericCursor BSI.ByteString CsPoppy1 (RM.RangeMin CsPoppy1) -> [GenericCursor BSI.ByteString CsPoppy1 (RM.RangeMin CsPoppy1)]
 siblings c = c:cs

diff --git a/app/App/Commands/Demo.hs b/app/App/Commands/Demo.hs
@@ -10,7 +10,6 @@ module App.Commands.Demo
 
 import Control.Lens
 import Control.Monad
-import Control.Monad.ST
 import Data.Generics.Product.Any
 import Data.Semigroup                                     ((<>))
 import Data.Word

diff --git a/hie.yaml b/hie.yaml
@@ -0,0 +1,12 @@
+cradle:
+  direct:
+    arguments:
+      - -Wincomplete-patterns
+      - -Wincomplete-record-updates
+      - -Wincomplete-uni-patterns
+      - -Wname-shadowing
+      - -Worphans
+      - -Wredundant-constraints
+      - -Wunused-binds
+      - -Wunused-imports
+      - -Wunused-matches