Merge branch 'master' of https://github.com/data61/fp-course

pnas · Mar 28, 2019 · ee79acb · ee79acb
2 parents a679653 + f4593df
commit ee79acb
Show file tree

Hide file tree

Showing 7 changed files with 6 additions and 6 deletions.
diff --git a/test/Course/ComonadTest.hs b/test/Course/ComonadTest.hs
@@ -14,8 +14,6 @@ module Course.ComonadTest
   )
   where
 
-import           Data.String       (fromString)
-
 import           Test.Course.Mini  (courseTest)
 import           Test.Mini         (MiniTestTree, testCase, testGroup, (@?=))
 

diff --git a/test/Course/ParserTest.hs b/test/Course/ParserTest.hs
@@ -44,7 +44,7 @@ import           Course.Core
 import           Course.Functor     ((<$>))
 import           Course.List        (List ((:.), Nil))
 import           Course.Monad       ((=<<))
-import           Course.Optional    (Optional (Empty, Full))
+import           Course.Optional    (Optional (Full))
 import           Course.Parser
 import           Course.Person      (Person (Person))
 

diff --git a/test/Course/StateTest.hs b/test/Course/StateTest.hs
@@ -37,7 +37,7 @@ import           Course.List        (List (..), filter, flatMap, hlist, length,
                                      listh, span, (++))
 import           Course.Monad
 import           Course.Optional    (Optional (Empty, Full))
-import           Course.State       (State (State), distinct, eval, exec, findM,
+import           Course.State       (State (State), distinct, findM,
                                      firstRepeat, get, isHappy, put, runState)
 
 test_State :: MiniTestTree

diff --git a/test/Course/TraversableTest.hs b/test/Course/TraversableTest.hs
@@ -10,7 +10,7 @@ import           Course.Compose     (Compose (Compose))
 import           Course.Core
 import           Course.ExactlyOne  (ExactlyOne (ExactlyOne))
 import           Course.Functor
-import           Course.List        (List ((:.), Nil), listh)
+import           Course.List        (List (Nil), listh)
 import           Course.Optional    (Optional (Empty, Full))
 import           Course.Traversable
 

diff --git a/test/Test/Course/Mini.hs b/test/Test/Course/Mini.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE ImplicitPrelude       #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE ScopedTypeVariables   #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 module Test.Course.Mini where
 

diff --git a/test/Test/Mini.hs b/test/Test/Mini.hs
@@ -11,7 +11,7 @@
 -- module with a type and instance for running the test suite with Tasty.
 module Test.Mini where
 
-import           Data.String (IsString, fromString)
+import           Data.String (IsString)
 
 type MiniTestTree =
   forall name assertion t g.

diff --git a/test/TestLoader.hs b/test/TestLoader.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 module TestLoader
   ( Optional.test_Optional
-Original file line number
+Diff line change
@@ Expand Up / @@ -14,8 +14,6 @@ module Course.ComonadTest @@
       )
       where
-    import           Data.String       (fromString)
     import           Test.Course.Mini  (courseTest)
     import           Test.Mini         (MiniTestTree, testCase, testGroup, (@?=))
@@ Expand Down @@