Compiles again. Model complete enough for initial run; exam support missing

config/models

@@ -20,12 +20,22 @@ Term json
     name        Text
     start       UTCTime
     end         UTCTime    
+    holidays    [UTCTime]
     UniqueTerm name
     deriving Eq
 School json
     name Text 
     UniqueSchool name
     deriving Eq    
+Degree json
+    name Text
+    schoolId SchoolId
+    UniqueDegree name schoolId
+    deriving Eq    
+DegreeCourse json
+    degreeId DegreeId
+    courseId CourseId
+    UniqueDegreeCourse degreeId courseId
 Course json
     name         Text
     owner        UserId    
@@ -37,13 +47,13 @@ Course json
     registerFrom UTCTime
     registerTo   UTCTime
 Lecturer 
-    userId      UserId
+    userId       UserId
-    courseId    CourseId
+    courseId     CourseId
     UniqueLecturer userId courseId 
 CourseParticipant
-    userId        UserId
+    userId       UserId
-    courseId      CourseId
+    courseId     CourseId
-    registration  UTCTime
+    registration UTCTime
     UniqueCourseParticipant userId courseId 
 Sheet
     courseId        CourseId
@@ -54,7 +64,7 @@ Sheet
     exerciseId      FileId Maybe
     hintId          FileId Maybe
     solutionId      FileId Maybe
-    markingId       FIleID Maybe
+    markingId       FileId Maybe
     markingText     Text
     activeFrom      UTCTime
     activeTo        UTCTime
@@ -65,8 +75,8 @@ Sheet
     createdBy       UserId
     changedBy       UserId    
 File        
-    name            Text
+    title           Text
-    content         ByteStream
+    content         ByteString
 Submission
     sheetId         SheetId
     fileId          FileId
@@ -91,46 +101,55 @@ SubmissionGroup
     createdBy       UserId
     changedBy       UserId
 SubmissionGroupUser
-    solutionGroupId SolutionGroupId
+    submissionGroupId SubmissionGroupId
-    userId          UserId   
+    userId            UserId   
-    UniqueSubmissionGroupUser solutionGroupId userId
+    UniqueSubmissionGroupUser submissionGroupId userId
---
 Tutorial json
     name        Text
     tutor       UserId    
-TutorialParticipant
+TutorialUser
     userId      UserId
     tutorialId  TutorialId
-    UniqueTutorialParticipant userId tutorialId
+    UniqueTutorialUser userId tutorialId
--- Unclear how to model this correctly   
+Booking
+    termId      TermId
+    begin       UTCTime
+    end         UTCTime
+    weekly      Bool
+    exceptions  [UTCTime]
+    created     UTCTime
+    changed     UTCTime
+    createdBy   UserId
+    changedBy   UserId
 Room
     name        Text
     capacity    Int Maybe
     building    Text
 RoomCourse
-    roomId      RoomId
     courseId    CourseId
--- not unique, as a course might happen several times
+    tutorialId  TutorialId Maybe
-RoomTutorial
+    examId      ExamId Maybe
     roomId      RoomId
-    tutorialId  TutorialId
+    bookingId   BookingId
-RoomExam 
+    UniqueRoomCourse courseId roomId bookingId
-    roomId      RoomId
+Exam
-    examId      ExamId
+    courseId            CourseId
-RoomBookingRecurring
+    name                Text
-    roomId      RoomId
+    description         Text
-    termId      termId
+    begin               UTCTime
-    start       TimeOfDay
+    end                 UTCTime
-    end         TimeOfDay
+    registrationBegin   UTCTime
-    day         Weekday
+    registrationEnd     UTCTime
-    created     UTCTime
+    deregistrationEnd   UTCTime
-    changed     UTCTime
+    ratingVisible       Bool
-RoomBooking
+    statisticsVisible   Bool
-    roomId      RoomId
+    created             UTCTime
-    begin       UTCTime
+    changed             UTCTime
-    end         UTCTime
+    createdBy           UserId
-    created     UTCTime
+    changedBy           UserId  
-    changed     UTCTime
+ExamUser
-
+    userId              UserId
-
+    examId              ExamId
+    -- CONTINUE HERE: Inlcude rating in this table or seperatly?
+    UniqueExamUser userId examId
  -- By default this file is used in Model.hs (which is imported by Foundation.hs)

src/Import.hs

@@ -4,3 +4,4 @@ module Import
 
 import Foundation            as Import
 import Import.NoFoundation   as Import
+import ModelData             as Import

src/Model.hs

@@ -11,6 +11,9 @@ module Model where
 
 import ClassyPrelude.Yesod
 import Database.Persist.Quasi
+-- import Data.Time
+-- import Data.ByteString
+import ModelData
 
 -- You can define all of your database entities in the entities file.
 -- You can find more information on persistent and how to declare entities
@@ -20,7 +23,7 @@ share [mkPersist sqlSettings, mkMigrate "migrateAll"]
     $(persistFileWith lowerCaseSettings "config/models")
 
 instance Show Term where
-	show = termName
+  show = ClassyPrelude.Yesod.unpack . termName
 
 
 

src/ModelData.hs

@@ -9,13 +9,11 @@ data SheetType = Regular | Bonus | Extra
   deriving (Show, Read, Eq, Ord, Enum, Bounded) 
 derivePersistField "SheetType"  
 
-{- Not needed
+data ExamStatus = Attended | NoShow | Voided
-data Weekday = Mon | Tue | Wed | Thu | Fri | Sat | Sun
   deriving (Show, Read, Eq, Ord, Enum, Bounded) 
-derivePersistField "Weekday"  
+derivePersistField "ExamStatus"  
--}
 
-{-
+{- Modelled in DB
 data Season = WS | SO
 	 deriving (Show, Read, Eq, Enum)
 derivePersistField "Season"
@@ -24,9 +22,10 @@ data Term   = Term { season:: Season, year :: Int }
 
 instance Show Term where
 	show (Term {season, year}) = take 1 (show season) ++ (show year)
+
+instance PersistField Term where
+	toPersistValue (Term {season, year}) = undefined
+	fromPersistValue (Term {season, year}) = undefined
+	sqlType _ = SqlInteger
+	isNullable _ = False
 -}
--- instance PersistField Term where
--- 	toPersistValue (Term {season, year}) = undefined
--- 	fromPersistValue (Term {season, year}) = undefined
--- 	sqlType _ = SqlInteger
--- 	isNullable _ = False