yackage 0.7.0.7 → 0.7.0.8

raw patch · 3 files changed

+9/−4 lines, 3 files

Files

• ChangeLog.md +4/−0
• yackage.cabal +1/−1
• yackage.hs +4/−3

@@ -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)

@@ -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

@@ -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