From fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Tue, 1 Jan 2019 14:48:54 +0100
Subject: Fix linting warnings

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index b79484a..8719da8 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -15,7 +15,7 @@ main :: IO ()
  --main = sample (arbitrary :: Gen (Circuit Input))
 main = do
   gr <- QC.generate $ rDups <$> QC.resize 30 (randomDAG :: QC.Gen (G.Gr Gate ()))
-  let dot = G.showDot . G.fglToDotString $ G.nemap (\x -> show x) (\_ -> "") gr
+  let dot = G.showDot . G.fglToDotString $ G.nemap show (const "") gr
   writeFile "file.dot" dot
   shelly $ run_ "dot" ["-Tpng", "-o", "file.png", "file.dot"]
   -- T.putStrLn $ generate gr
-- 
cgit