54 unclassify :: Bool -> Classified -> String
55 unclassify _     (BirdTrack s) = ' ':s  function
56 unclassify _     (Blank s)     = s  function
57 unclassify _     (Ordinary s)  = s  function
58 unclassify _     (Line n file) = "# " ++ show n ++ " " ++ show file  function
59 unclassify _     (CPP s)       = '#':s  function
60 unclassify True  (Comment "")  = "  --"  function
61 unclassify True  (Comment s)   = "  -- " ++ s  function
62 unclassify False (Comment "")  = "--"  function
63 unclassify False (Comment s)   = "-- " ++ s  function
64 unclassify _     _             = internalError  function
73    in either (Left . unlines . map (unclassify usesBirdTracks))