typo

tlevine · Apr 4, 2013 · 8bbf1a0 · 8bbf1a0
1 parent 9090596
commit 8bbf1a0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Schema.hs b/src/Schema.hs
@@ -31,8 +31,8 @@ type QuestionListener = QuestionAnswer -> String -> QuestionAnswer
 
 -- A user links to its questionnaires.
 data QuestionnaireId = TrailerId U.UUID | SymptomId U.UUID
-newtype GuestKey = U.UUID
-newtype UserId = U.UUID
+newtype GuestKey = GuestKey U.UUID
+newtype UserId   = UserId   U.UUID
 
 data User = User { email :: String
                  , phone :: String