diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+28 Mar 2014
+	Release 0.3.4.1
+	Fix build with ghc-7.8 broken by changes in HList 0.3.4
+
 20 Feb 2014
 	Release 0.3.4
 	RecordPuns add ( ) syntax
diff --git a/Data/HList/Label6.hs b/Data/HList/Label6.hs
--- a/Data/HList/Label6.hs
+++ b/Data/HList/Label6.hs
@@ -23,8 +23,7 @@
 
 #if MIN_VERSION_base(4,7,0)
 instance KnownSymbol x => ShowLabel (x :: Symbol) where
-  showLabel _ =  symbolVal (proxy :: Proxy x)
-
+  showLabel _ =  symbolVal (Proxy :: Proxy x)
 #else
 instance SingI x => ShowLabel (x :: Symbol) where
   showLabel _ =  fromSing (sing :: Sing x)
diff --git a/HList.cabal b/HList.cabal
--- a/HList.cabal
+++ b/HList.cabal
@@ -1,5 +1,5 @@
 Name:                HList
-Version:             0.3.4.0
+Version:             0.3.4.1
 Category:            Data
 Synopsis:            Heterogeneous lists
 Description:         HList is a record system providing strongly typed heterogenous lists, records,