From ec30873176b8aacf504bc3b5919c0a161a74b1f0 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Thu, 8 Dec 2016 09:51:24 +0000
Subject: [PATCH] Used init instead of reverse $ tail $ reverse

---
 advent04.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/advent04.hs b/advent04.hs
index 135ad37..b8c095e 100644
--- a/advent04.hs
+++ b/advent04.hs
@@ -1,6 +1,6 @@
 module Main(main) where
 
-import Data.List (last, intersperse, sortBy, intercalate, isInfixOf)
+import Data.List (last, intersperse, sortBy, intercalate, isInfixOf, init)
 import Data.List.Split (splitOn)
 import Data.Char (isLetter, ord, chr)
 import qualified Data.Map.Lazy as Map
@@ -38,7 +38,7 @@ part2 rooms = do
 parseLine :: String -> Room
 parseLine line = Room {name=name, sector=sector, checksum=checksum}
     where components = splitOn "-" line
-          name = intercalate "-" $ reverse $ tail $ reverse components
+          name = intercalate "-" $ init components
           sector = read $ head $ splitOn "[" $ last components
           checksum = filter (isLetter) $ last components
 
-- 
2.34.1