Better name for dubtrack rooms in database

jappeace · jappeace · commit e764aa5f199d · 2019-10-28T21:16:11.000+01:00
diff --git a/src/Bot/Dubtrack.hs b/src/Bot/Dubtrack.hs
@@ -74,7 +74,7 @@ newtype RoomName = RoomName
   }
 
 instance IsEntity RoomName where
-  nameOfEntity _ = "RoomName"
+  nameOfEntity _ = "DubtrackRoomName"
   toProperties reply = Map.fromList [("name", PropertyText $ unName reply)]
   fromProperties = fmap RoomName . extractProperty "name"
 

Original file line number	Diff line number	Diff line change
`@@ -74,7 +74,7 @@ newtype RoomName = RoomName`
`74`	`74`	`}`
`75`	`75`
`76`	`76`	`instance IsEntity RoomName where`
`77`		`- nameOfEntity _ = "RoomName"`
	`77`	`+ nameOfEntity _ = "DubtrackRoomName"`
`78`	`78`	`toProperties reply = Map.fromList [("name", PropertyText $ unName reply)]`
`79`	`79`	`fromProperties = fmap RoomName . extractProperty "name"`
`80`	`80`