diff options
Diffstat (limited to 'lib/Server')
-rw-r--r-- | lib/Server/ControlRoom.hs | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs index 11e72d5..f08abcb 100644 --- a/lib/Server/ControlRoom.hs +++ b/lib/Server/ControlRoom.hs @@ -64,6 +64,7 @@ import Numeric (showFFloat) import Persist import Yesod.Auth.OpenId (IdentifierType (..), authOpenId) import Yesod.Auth.Uffd (UffdUser (..), uffdClient) +import Yesod.Orphans () data ControlRoom = ControlRoom @@ -462,30 +463,3 @@ mightbe :: Maybe Text -> Text mightbe (Just a) = a mightbe Nothing = "" ---- some orphans to make hamlet easier to deal with -instance ToMarkup Time where - toMarkup time = - toMarkup (show time) - -instance ToMarkup Day where - toMarkup day = toMarkup (iso8601Show day) - -instance ToMessage UTCTime where - toMessage = formatW3 - -instance ToMessage Token where - toMessage (Token uuid) = UUID.toText uuid - -instance ToMarkup UTCTime where - toMarkup = toMarkup . formatW3 - -instance ToMarkup Token where - toMarkup (Token uuid) = toMarkup (UUID.toText uuid) - -instance ToMessage Double where - toMessage = T.pack . show - -instance ToMarkup Seconds where - toMarkup (Seconds s) = - if s > 0 then toMarkup ("+"+|s `div` 60|+"" :: Text) - else toMarkup (s `div` 60) |