From d9b24473ce65c6ce7f5bdea8c7d6eee07a62461e Mon Sep 17 00:00:00 2001
From: Reto Hablützel <rethab@rethab.ch>
Date: Sat, 9 Aug 2014 21:33:10 +0200
Subject: hlint refactorings

---
 src/IPC/DBus.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/IPC')

diff --git a/src/IPC/DBus.hs b/src/IPC/DBus.hs
index b95e59f..3f2d6f2 100644
--- a/src/IPC/DBus.hs
+++ b/src/IPC/DBus.hs
@@ -44,7 +44,7 @@ runIPC mvst = handle printException exportConnection
 
 sendSignalMethod :: TMVar SignalType -> Method
 sendSignalMethod mvst = method interfaceName sendSignalName
-    (signature_ [variantType $ toVariant $ (undefined :: SignalType)])
+    (signature_ [variantType $ toVariant (undefined :: SignalType)])
     (signature_ [])
     sendSignalMethodCall
     where
-- 
cgit v1.2.3