Update Drasil to have Fixme in Source field.

code/drasil-example/Drasil/DocumentLanguage/Definitions.hs

@@ -108,7 +108,7 @@ mkQField d _ l@DefiningEquation fs = (show l, (eqUnR $ sy d $= d ^. equat):[]) :
 mkQField d m l@(Description v u) fs =
  (show l, buildDDescription v u d m) : fs
 mkQField _ _ l@(RefBy) fs = (show l, fixme) : fs --FIXME: fill this in
-mkQField d _ l@(Source) fs = (show l, [Paragraph $ getSource d]) : fs
+mkQField d _ l@(Source) fs = (show l, fixme) : fs
 mkQField d _ l@(Notes) fs = maybe fs (\ss -> (show l, map Paragraph ss) : fs) (d ^. getNotes)
 mkQField _ _ label _ = error $ "Label " ++ show label ++ " not supported " ++
  "for data definitions"
@@ -122,7 +122,7 @@ mkDDField d _ l@DefiningEquation fs = (show l, (eqUnR $ sy d $= d ^. relat):[])
 mkDDField d m l@(Description v u) fs =
  (show l, buildDDescription' v u d m) : fs
 mkDDField _ _ l@(RefBy) fs = (show l, fixme) : fs --FIXME: fill this in
-mkDDField d _ l@(Source) fs = (show l, [Paragraph $ getSource d]) : fs
+mkDDField d _ l@(Source) fs = (show l, fixme) : fs
 mkDDField d _ l@(Notes) fs = maybe fs (\ss -> (show l, map Paragraph ss) : fs) (d ^. getNotes)
 mkDDField _ _ label _ = error $ "Label " ++ show label ++ " not supported " ++
  "for data definitions"
@@ -162,7 +162,7 @@ mkGDField g _ l@DefiningEquation fs = (show l, (eqUnR (g ^. relat)):[]) : fs
 mkGDField g m l@(Description v u) fs = (show l,
  (buildDescription v u (g ^. relat) m) []) : fs
 mkGDField _ _ l@(RefBy) fs = (show l, fixme) : fs --FIXME: fill this in
-mkGDField g _ l@(Source) fs = (show l, [Paragraph $ getSource g]) : fs
+mkGDField g _ l@(Source) fs = (show l, fixme) : fs
 mkGDField d _ l@(Notes) fs = maybe fs (\ss -> (show l, map Paragraph ss) : fs) (d ^. getNotes)
 mkGDField _ _ l _ = error $ "Label " ++ show l ++ " not supported for gen defs"
 
@@ -174,7 +174,7 @@ mkIMField i _ l@DefiningEquation fs =
 mkIMField i m l@(Description v u) fs = (show l,
  foldr (\x -> buildDescription v u x m) [] [i ^. relat]) : fs
 mkIMField _ _ l@(RefBy) fs = (show l, fixme) : fs --FIXME: fill this in
-mkIMField i _ l@(Source) fs = (show l, [Paragraph $ getSource i]) : fs --FIXME: fill this in
+mkIMField i _ l@(Source) fs = (show l, fixme) : fs --FIXME: fill this in
 mkIMField i _ l@(Output) fs = (show l, [Paragraph x]) : fs
  where x = P . eqSymb $ i ^. imOutput
 mkIMField i _ l@(Input) fs =