hlint

bench/Bench.hs

@@ -105,7 +105,7 @@ main = do
                       ]
                 , bgroup "entropy"
                       [ bench "hs" $ nf hsEntropy xs
-                      , bench "jit" $ nfIO $ (pure $ entropyFp xsPtr)
+                      , bench "jit" $ nfIO (pure $ entropyFp xsPtr)
                       ]
                 , bgroup "k-l"
                       [ bench "hs" $ nf (kl xs) ys
@@ -153,7 +153,7 @@ main = do
                   bgroup "elliptic"
                       [ bench "A" $ nfIO (withForeignPtr p0 $ \p0Ptr -> withForeignPtr p1 $ \p1Ptr -> pure $ ᴀFp p0Ptr p1Ptr) ]
                 , env xorEnv $ \ ~(wh, wo, bh) ->
-                  bgroup "xor" $
+                  bgroup "xor"
                       [ bench "train" $ nfIO $
                           withForeignPtr wh $ \whPtr ->
                           withForeignPtr wo $ \woPtr ->

run/Main.hs

@@ -181,7 +181,7 @@ loop = do
         Nothing                -> pure ()
 
 del :: String -> Repl AlexPosn ()
-del s = lift $ modify (mE (filter (\((Nm n _ _),_) -> n /= st))) where st=T.pack s
+del s = lift $ modify (mE (filter (\(Nm n _ _, _) -> n /= st))) where st=T.pack s
 
 listCtx :: Repl AlexPosn ()
 listCtx = do {bs <- lg ee; liftIO $ putDoc (prettyLines (pretty.fst<$>bs)<>hardline)}

src/Ty/M.hs

@@ -93,4 +93,4 @@ foldMapAlternative :: (Traversable t, Alternative f) => (a -> f b) -> t a -> f b
 foldMapAlternative f xs = asum (f <$> xs)
 
 desugar :: a
-desugar = error ("Internal error. Should have been desugared.")
+desugar = error "Internal error. Should have been desugared."