diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-11 12:26:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-11 12:26:42 -0400 |
| commit | 16d27e9c023231dcf80923d72633c80dbd91116e (patch) | |
| tree | 76bc9acd1b735da1fde1c0796146cc774d0928a5 /Assistant/WebApp/Types.hs | |
| parent | 91edb58d326e59a34c0457c3ea619a1a7953f54f (diff) | |
work around a bug in Yesod
The PathPiece instance for Text results in a 404 for T.empty.
Diffstat (limited to 'Assistant/WebApp/Types.hs')
| -rw-r--r-- | Assistant/WebApp/Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Assistant/WebApp/Types.hs b/Assistant/WebApp/Types.hs index f12aedee1..8cf5d40ad 100644 --- a/Assistant/WebApp/Types.hs +++ b/Assistant/WebApp/Types.hs @@ -87,3 +87,7 @@ instance PathPiece Transfer where instance PathPiece PairMsg where toPathPiece = pack . show fromPathPiece = readish . unpack + +instance PathPiece SecretReminder where + toPathPiece = pack . show + fromPathPiece = readish . unpack |