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/Actions.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Actions.hs')

diff --git a/src/Actions.hs b/src/Actions.hs
index 5bcfea7..a739828 100644
--- a/src/Actions.hs
+++ b/src/Actions.hs
@@ -28,7 +28,7 @@ stripActions s = case matchRegex actionRegex s of
   Nothing -> s
   Just _  -> stripActions strippedOneLevel
   where
-      strippedOneLevel = subRegex actionRegex s $ "[action=\\1\\2]\\3[/action]"
+      strippedOneLevel = subRegex actionRegex s "[action=\\1\\2]\\3[/action]"
 
 actionRegex :: Regex
 actionRegex = mkRegex "<action=`?([^>`]*)`?( +button=[12345]+)?>(.+)</action>"
-- 
cgit v1.2.3