Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
huh, how did that happen
  • Loading branch information
dag committed Mar 30, 2012
1 parent e6be738 commit b0e7bf4
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
6 changes: 3 additions & 3 deletions src/Happaste/Html.hs
Expand Up @@ -69,9 +69,9 @@ unit size body =
</div>
</div>

recentPasteStateList :: XMLGenT Server (HSX.XML Server)
recentPasteStateList = do
{ ps <- query RecentPasteState
recentPastesList :: XMLGenT Server (HSX.XML Server)
recentPastesList = do
{ ps <- query RecentPastes
; <ol class="recent-pastes">
<% forM ps $ \(k,p) ->
<li><a href=(ShowPaste k)><% p ^. fileName %></a></li>
Expand Down
2 changes: 1 addition & 1 deletion src/Happaste/Routes.hs
Expand Up @@ -63,7 +63,7 @@ route (NewPaste) = do
<input type="submit" value="Create"/>
</%>
%>
<% unit "7-24" recentPasteStateList %>
<% unit "7-24" recentPastesList %>
</%>
Right paste -> do
k <- update $ SavePaste paste
Expand Down
6 changes: 3 additions & 3 deletions src/Happaste/State.hs
Expand Up @@ -9,8 +9,8 @@ import Data.Text (Text)

import Happaste.Types

recentPasteState :: Query PasteState [(Key,Paste)]
recentPasteState = pastes %. take 10 . toDescList (Proxy :: Proxy Key)
recentPastes :: Query PasteState [(Key,Paste)]
recentPastes = pastes %. take 10 . toDescList (Proxy :: Proxy Key)

savePaste :: Paste -> Update PasteState Key
savePaste p = do
Expand All @@ -21,7 +21,7 @@ savePaste p = do
getPaste :: Key -> Query PasteState (Maybe Paste)
getPaste k = pastes %. fmap snd . getOne . getEQ k

makeAcidic ''PasteState ['recentPasteState, 'savePaste, 'getPaste]
makeAcidic ''PasteState ['recentPastes, 'savePaste, 'getPaste]

saveHighlight :: Key -> Text -> Update HighlighterState Text
saveHighlight k t = do
Expand Down

0 comments on commit b0e7bf4

Please sign in to comment.