contrib/haskell/src/Hkl/PyFAI/Calib.hs

   1 {-# LANGUAGE FlexibleInstances #-}
   2 {-# LANGUAGE GADTs #-}
   3 {-# LANGUAGE UnicodeSyntax #-}
   4
   5 module Hkl.PyFAI.Calib
   6        ( ToPyFAICalibArg(..) ) where
   7
   8 import Data.Text (unpack)
   9 import Numeric.Units.Dimensional.Prelude ((/~), nano, meter)
  10
  11 import Hkl.Types ( WaveLength )
  12 import Hkl.Detector ( Detector )
  13 import Hkl.PyFAI.Calibrant ( Calibrant )
  14 import Hkl.PyFAI.Detector ( toPyFAI )
  15
  16 class ToPyFAICalibArg a where
  17   toPyFAICalibArg ∷ a → String
  18
  19 instance ToPyFAICalibArg FilePath where
  20   toPyFAICalibArg f = f
  21
  22 instance ToPyFAICalibArg (Detector a) where
  23   toPyFAICalibArg d = "-D" ++ unpack (toPyFAI d)
  24
  25 instance ToPyFAICalibArg Calibrant where
  26   toPyFAICalibArg c = "-c " ++ show c
  27
  28 instance ToPyFAICalibArg WaveLength where
  29     toPyFAICalibArg w = "-w " ++ show ((w /~ nano meter) * 10)