mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(temporary?) fix for builds on GHC 7.8

Browse source
This commit is contained in:
Vincent Ambo 2014-05-08 15:57:10 +02:00
parent 6cbc1a4448
commit 19cc93685b
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/BlogDB.hs
View file

@ -34,7 +34,9 @@ import qualified Data.Text as Text
newtype EntryId = EntryId { unEntryId :: Integer }
deriving (Eq, Ord, Data, Enum, Typeable, SafeCopy)
deriving (Eq, Ord, Data, Enum, Typeable)
$(deriveSafeCopy 0 'base ''EntryId)
instance Show EntryId where
show = show . unEntryId
@ -78,15 +80,25 @@ data Entry = Entry {
$(deriveSafeCopy 0 'base ''Entry)
-- ixSet requires different datatypes for field indexes, so let's define some
newtype Author = Author Text deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype Title = Title Text deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype BText = BText Text deriving (Eq, Ord, Data, Typeable, SafeCopy) -- standard text
newtype MText = MText Text deriving (Eq, Ord, Data, Typeable, SafeCopy) -- "read more" text
newtype Tag = Tag Text deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype EDate = EDate UTCTime deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype SDate = SDate UTCTime deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype Username = Username Text deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype SessionID = SessionID Text deriving (Eq, Ord, Data, Typeable, SafeCopy)
newtype Author = Author Text deriving (Eq, Ord, Data, Typeable)
newtype Title = Title Text deriving (Eq, Ord, Data, Typeable)
newtype BText = BText Text deriving (Eq, Ord, Data, Typeable) -- standard text
newtype MText = MText Text deriving (Eq, Ord, Data, Typeable) -- "read more" text
newtype Tag = Tag Text deriving (Eq, Ord, Data, Typeable)
newtype EDate = EDate UTCTime deriving (Eq, Ord, Data, Typeable)
newtype SDate = SDate UTCTime deriving (Eq, Ord, Data, Typeable)
newtype Username = Username Text deriving (Eq, Ord, Data, Typeable)
newtype SessionID = SessionID Text deriving (Eq, Ord, Data, Typeable)
$(deriveSafeCopy 0 'base ''Author)
$(deriveSafeCopy 0 'base ''Title)
$(deriveSafeCopy 0 'base ''BText)
$(deriveSafeCopy 0 'base ''MText)
$(deriveSafeCopy 0 'base ''Tag)
$(deriveSafeCopy 0 'base ''EDate)
$(deriveSafeCopy 0 'base ''SDate)
$(deriveSafeCopy 0 'base ''Username)
$(deriveSafeCopy 0 'base ''SessionID)
instance Indexable Entry where
empty = ixSet [ ixFun $ \e -> [ entryId e]