cleanup

Author: seanhess

src/App/Effect/Transfer.hs

@@ -20,7 +20,6 @@ import NSO.Types.Dataset
 import NSO.Types.InstrumentProgram (Proposal)
 import Web.FormUrlEncoded qualified as FUE
 import Web.Hyperbole
-import Web.Hyperbole.View.Forms
 
 
 -- data Status = Status

src/NSO/Image/Fits/Meta.hs

@@ -3,7 +3,6 @@ module NSO.Image.Fits.Meta where
 import Control.Monad (filterM)
 import Data.List.Ext
 import Data.Massiv.Array ()
-import Debug.Trace
 import Effectful
 import Effectful.Error.Static
 import NSO.Image.Fits.Frame
@@ -101,7 +100,6 @@ frameMetaFromL2Fits path slice arms l1 fits = runParser $ do
   qshape <- parseHeader @(Shape Quantity) qh
   quants <- parseQuantities
 
-  traceM "frameMetaFromL2Fits"
   ps <- parseAllProfiles arms $ profileHeaders fits
 
   -- profs <- parseProfiles
@@ -143,7 +141,6 @@ frameMetaFromL2Fits path slice arms l1 fits = runParser $ do
     fit <- parseProfileFit @Fit arm fith
     original <- parseProfileFit @Original arm orgh
     shape <- parseHeader @(Shape Profile) fith
-    traceM $ " - " <> show arm <> " -- " <> show shape
     pure $ ArmFrameProfileMeta{arm, shape, fit, original}
 
   parseProfileFit :: forall fit es. (Parser :> es, Error ProfileError :> es) => ArmWavMeta -> Header -> Eff es (ProfileHeader fit)

src/NSO/Image/Headers/Types.hs

@@ -3,17 +3,12 @@ module NSO.Image.Headers.Types where
 -- import Control.Exception (Exception)
 -- import Data.Massiv.Array (Ix3, Ix4, Sz (..))
 
-import Data.List qualified as L
 import Data.Text (pack)
 import Data.Text qualified as T
 import GHC.TypeLits
-import NSO.Data.Spectra (midPoint)
 import NSO.Image.Headers.Keywords
-import NSO.Image.Types.Profile
 import NSO.Prelude
-import NSO.Types.Wavelength (SpectralLine (..), Wavelength (..), fromIonName, ionName)
-import Numeric (showFFloat)
-import Telescope.Asdf.GWCS (ToAxes (..))
+import NSO.Types.Wavelength (SpectralLine (..), fromIonName, ionName)
 import Telescope.Data.KnownText
 import Telescope.Data.Parser (expected)
 import Telescope.Fits.Header

src/NSO/Image/Types/Profile.hs

@@ -1,11 +1,8 @@
 module NSO.Image.Types.Profile where
 
-import Data.List qualified as L
-import Data.List.NonEmpty qualified as NE
 import NSO.Image.Types.Frame (SlitX, Stokes)
 import NSO.Prelude
 import NSO.Types.Wavelength
-import Telescope.Asdf (ToAsdf (..))
 import Telescope.Data.DataCube
 import Telescope.Data.KnownText
 
@@ -19,8 +16,6 @@ data ProfileType
 data Profile
 
 
-
-
 instance KnownText Original where
   knownText = "Original"
 instance KnownText Fit where