diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.7.0.8
+
+* Compile with GHC 7.10
+
 ## 0.7.0.7
 
 * Change absolute paths to relative for index [#10](https://github.com/snoyberg/yackage/pull/10)
diff --git a/yackage.cabal b/yackage.cabal
--- a/yackage.cabal
+++ b/yackage.cabal
@@ -1,5 +1,5 @@
 Name:                yackage
-Version:             0.7.0.7
+Version:             0.7.0.8
 Synopsis:            Personal Hackage replacement for testing new packages.
 description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/yackage>.
 Homepage:            http://github.com/snoyberg/yackage
diff --git a/yackage.hs b/yackage.hs
--- a/yackage.hs
+++ b/yackage.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE ViewPatterns #-}
 import Yesod.Core
 import Yesod.Form
@@ -104,7 +105,7 @@
     toPathPiece = T.pack . showVersion
 instance PathPiece PackageName where
     fromPathPiece = Just . PackageName . T.unpack
-    toPathPiece = T.pack . unPackageName
+    toPathPiece = T.pack . unPackageName'
 
 getRootR :: Handler RepHtml
 getRootR = do
@@ -126,7 +127,7 @@
         <input type="submit" value="Upload">
 <dl>
     $forall p <- ps
-        <dt>#{unPackageName (fst p)}
+        <dt>#{unPackageName' (fst p)}
         <dd>
             $forall v <- toAscList (snd p)
                 <a href="@{tarballR (fst p) v}">#{toPathPiece v}
@@ -224,7 +225,7 @@
         , settingsHost = if localhost args then "127.0.0.1" else "*"
         } app
 
-unPackageName (PackageName s) = s
+unPackageName' (PackageName s) = s
 
 rebuildIndex ps = do
     path <- rootDir `fmap` getYesod