Commit 057f227c authored by Mart Lubbers's avatar Mart Lubbers

apply cleanup patch

parent 52018743
Pipeline #27086 passed with stage
in 5 minutes and 10 seconds
......@@ -21,5 +21,4 @@ derive JSONEncode Temperature, Meters, Feet, Miles, Knots, Degrees, Contac
derive JSONDecode Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
derive gText Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
derive gEditor Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
//derive gDefault Temperature, Meters, Feet, Miles, Knots, Degrees, IncidentShort
derive gEq Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
......@@ -29,15 +29,4 @@ gText{|IncidentShort|} _ i = [maybe "" incidentTitle i]
derive JSONEncode Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
derive JSONDecode Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
derive gEditor Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
//derive gDefault Temperature, Meters, Feet, Miles, Knots, Degrees, IncidentShort
derive gEq Temperature, Meters, Feet, Miles, Knots, Degrees, ContactShort, IncidentShort
////derive gDefault Contact, ContactGeo, CommunicationMean, NewCommunicationMean, ContactType, Contact
//
//derive gDefault DSCMessage, DSCCategory, INMARSATCMessage, PhoneCall, RadioCall, EmailMessage, P2000Message
//derive gDefault Communication, CommunicationDetails, CommunicationType, CommunicationDirection, CommunicationStatus
//derive gDefault EmergencyPhase, Incident, IncidentType, Contact, ContactType, ContactAccessLevel, ContactStatus, ContactPhoto, ContactAvatar, VesselType
//derive gDefault PersonDetails, VesselDetails, SurferDetails, DiverDetails, AirplaneDetails, HelicopterDetails
//derive gDefault WeatherData, WeatherType,LogEntry, Gender
//derive gDefault AISContact, AIVDMCNB, AIVDM5
//derive gDefault CommunicationMean, CommunicationMeanType, TelephoneDetails, VHFRadioDetails, EmailAccountDetails, P2000ReceiverDetails, XCommunicationMean
......@@ -10,8 +10,6 @@ import Data.Functor, Data.Either, Data.Tuple, Data.Func
derive class iTask ContactFilter
derive gDefault PhoneCall, RadioCall, EmailMessage, P2000Message, WeatherData, PersonDetails, VesselDetails, SurferDetails, DiverDetails, AirplaneDetails, HelicopterDetails, CommunicationMean, WeatherType, Gender, VesselType, CommunicationMeanType, Feet, Knots, Meters, Temperature, Degrees, Miles
//CloudBase, SeaTemperature, AirTemperature, WaveHeight, SwellDirection, Visibility, WindSpeed, VesselRange
dbReadSDS :: String -> SDSSequence QueryDef [r] () | mbFromSQL r & TC r
dbReadSDS notifyId = databaseDef >++> sqlReadSDS notifyId
......
......@@ -27,7 +27,6 @@ pay
>>| viewInformation "Payments performed on:" [] today
>>| pay
viewSelectedCitizen :: Task ()
viewSelectedCitizen
= (enterChoiceWithShared () [ChooseFromGrid (\{Citizen|name,ssn} -> "" <+++ name <+++ " (" <+++ ssn <+++ ")") ] citizens
......
......@@ -778,7 +778,6 @@ instance == LeafletIconID where (==) (LeafletIconID x) (LeafletIconID y) = x ==
derive JSONEncode LeafletMap, LeafletPerspective, LeafletLatLng
derive JSONDecode LeafletMap, LeafletPerspective, LeafletLatLng
//derive gDefault LeafletMap, LeafletPerspective, LeafletLatLng
derive gDefault LeafletLatLng
derive gEq LeafletMap, LeafletPerspective
derive gText LeafletMap, LeafletPerspective, LeafletLatLng
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment