diff --git a/casr-logbook.cabal b/casr-logbook.cabal
--- a/casr-logbook.cabal
+++ b/casr-logbook.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook
-version:            0.7.0
+version:            0.7.1
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
diff --git a/src/Data/Aviation/Casr/Logbook/Html/Html.hs b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
--- a/src/Data/Aviation/Casr/Logbook/Html/Html.hs
+++ b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
@@ -58,7 +58,8 @@
       HasTime(daytime),
       zerotimeamount,
       Rating(Rating),
-      Aircraft(Aircraft),
+      Aircraft,
+      HasAircraft(..),
       FlightPoint(FlightPoint),
       Aviator(Aviator),
       HasAircraft(aircraftRegistration),
@@ -158,13 +159,15 @@
   AircraftFlight
   -> Aircraft
   -> Html ()
-htmlAircraft _ (Aircraft t r e) =
+htmlAircraft _ acft =
   span_ [class_ "aircraft"] $
-    do  span_ [class_ "aircrafttype"] (fromString t)
+    do  span_ [class_ "aircraftyearmodel"] (fromString (view aircraftYearModel acft))
         " "
-        span_ [class_ "aircraftregistration"] (fromString r)
+        span_ [class_ "aircrafttype"] (fromString (view aircraftType acft))
         " "
-        span_ [class_ "aircraftengine"] (fromString (strEngine e))
+        span_ [class_ "aircraftregistration"] (fromString (view aircraftRegistration acft))
+        " "
+        span_ [class_ "aircraftengine"] (fromString (strEngine (view aircraftEngine acft)))
 
 htmlRatingDay ::
   Maybe Day
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/BriefingMeta.hs b/src/Data/Aviation/Casr/Logbook/Meta/BriefingMeta.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/BriefingMeta.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/BriefingMeta.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Meta.BriefingMeta(
   BriefingMeta(BriefingMeta)
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/ExamMeta.hs b/src/Data/Aviation/Casr/Logbook/Meta/ExamMeta.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/ExamMeta.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/ExamMeta.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Meta.ExamMeta(
   ExamMeta(ExamMeta)
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/Passenger.hs b/src/Data/Aviation/Casr/Logbook/Meta/Passenger.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/Passenger.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/Passenger.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Meta.Passenger(
   Passenger(Passenger)
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightMeta.hs b/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightMeta.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightMeta.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightMeta.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE InstanceSigs #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta(
   SimulatorFlightMeta(SimulatorFlightMeta)
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/TrackLogs.hs b/src/Data/Aviation/Casr/Logbook/Meta/TrackLogs.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/TrackLogs.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/TrackLogs.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Meta.TrackLogs(
   TrackLogs(TrackLogs)
diff --git a/src/Data/Aviation/Casr/Logbook/Types/Aircraft.hs b/src/Data/Aviation/Casr/Logbook/Types/Aircraft.hs
--- a/src/Data/Aviation/Casr/Logbook/Types/Aircraft.hs
+++ b/src/Data/Aviation/Casr/Logbook/Types/Aircraft.hs
@@ -18,7 +18,8 @@
 
 data Aircraft =
   Aircraft {
-    _aircraftType :: String
+    _aircraftYearModel :: String
+  , _aircraftType :: String
   , _aircraftRegistration :: String
   , _aircraftEngine :: Engine
   } deriving (Eq, Ord, Show)
@@ -28,9 +29,11 @@
 singleaircraft ::
   String
   -> String
+  -> String
   -> Aircraft
-singleaircraft t r =
+singleaircraft y t r =
   Aircraft
+    y
     t
     r
     Single
@@ -38,9 +41,11 @@
 multiaircraft ::
   String
   -> String
+  -> String
   -> Aircraft
-multiaircraft t r =
+multiaircraft y t r =
   Aircraft
+    y
     t
     r
     Multi
diff --git a/src/Data/Aviation/Casr/Logbook/Types/Entries.hs b/src/Data/Aviation/Casr/Logbook/Types/Entries.hs
--- a/src/Data/Aviation/Casr/Logbook/Types/Entries.hs
+++ b/src/Data/Aviation/Casr/Logbook/Types/Entries.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Data.Aviation.Casr.Logbook.Types.Entries(
   Entries(..)