Slight improvement to tests

newlandsvalley · Jul 29, 2019 · 6ec18e0 · 6ec18e0
1 parent c27f7b1
commit 6ec18e0
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/test/FileParser.purs b/test/FileParser.purs
@@ -1,10 +1,9 @@
 module Test.FileParser (parserSuite) where
 
-import Prelude (Unit, bind, discard, show, ($), (<<<), (<>))
+import Prelude (Unit, bind, discard, ($), (<<<))
 import Data.Midi (Recording)
 import Data.Midi.Parser (normalise, parse)
 import Node.Path as Path
-import Effect.Exception (Error)
 import Effect.Class (liftEffect)
 import Control.Monad.Free (Free)
 import Data.Either (Either(..))
@@ -43,12 +42,13 @@ assertParses fileName =
 
 canParse :: String -> Test
 canParse str =
-  case fullParse str of
-    Right _ ->
-      success
-    Left err ->
-      failure (err)
-        where
-          fullParse :: String -> Either String Recording
-          fullParse s =
-            (parse <<< normalise) s
+  let
+    fullParse :: String -> Either String Recording
+    fullParse s =
+      (parse <<< normalise) s
+  in
+    case fullParse str of
+      Right _ ->
+        success
+      Left err ->
+        failure (err)
diff --git a/test/Instrument.purs b/test/Instrument.purs
@@ -57,7 +57,7 @@ roundTripGleitzmanProperty (TestGleitzman s) =
   in
     (Just s :: Maybe String) === name
 
-instrumentChecksSuite :: forall t. Free TestF Unit
+instrumentChecksSuite :: Free TestF Unit
 instrumentChecksSuite = do
   suite "instrument" do
     test "unknown" do