Skip to content

Commit 3106700

Browse files
committed
Clean up warnings in tests and benchmarks
1 parent 0889bae commit 3106700

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

bench/HaggleBench.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{-# LANGUAGE FlexibleContexts #-}
22
{-# LANGUAGE TupleSections #-}
33
{-# LANGUAGE TypeFamilies #-}
4+
{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
45

56
module Main ( main ) where
67

tests/GraphTests.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,10 @@
22
{-# LANGUAGE FlexibleContexts #-}
33
{-# LANGUAGE FlexibleInstances #-}
44
{-# LANGUAGE TypeFamilies #-}
5+
{-# LANGUAGE TypeOperators #-}
56
{-# LANGUAGE UndecidableInstances #-}
67
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
8+
{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
79

810
-- | This module tests Haggle by comparing its results to those of FGL.
911
-- This assumes that FGL is reasonably correct.
@@ -25,8 +27,6 @@ import Control.Arrow ( first, second )
2527
import qualified Data.Bifunctor as Bi
2628
import Control.Monad ( replicateM )
2729
import Data.Function ( on )
28-
import Control.Monad.ST
29-
import Control.Monad ( liftM, filterM, replicateM )
3030
import qualified Data.Foldable as F
3131
import qualified Data.List as L
3232
import Data.Maybe ( fromJust, isNothing )

0 commit comments

Comments
 (0)