main_sixs :: IO ()
main_sixs = do
  let root = "/nfs/ruche-sixs/sixs-soleil/com-sixs/2015/Shutdown4-5/XpadAu111/"
  let filename = "align_FLY2_omega_00045.nxs"
  let dataframe_h5p = DataFrameH5Path { h5pImage = DataItem "com_113934/scan_data/xpad_image" StrictDims
                                      , h5pMu = DataItem "com_113934/scan_data/UHV_MU" ExtendDims
                                      , h5pOmega = DataItem "com_113934/scan_data/UHV_OMEGA" ExtendDims
                                      , h5pDelta = DataItem "com_113934/scan_data/UHV_DELTA" ExtendDims
                                      , h5pGamma = DataItem "com_113934/scan_data/UHV_GAMMA" ExtendDims
                                      , h5pUB = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/UB" StrictDims
                                      , h5pWavelength = DataItem "com_113934/SIXS/Monochromator/wavelength" StrictDims
                                      , h5pDiffractometerType = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/type" StrictDims
                                      }

  withH5File (root </> filename) $ \h5file ->
    withDataframeH5 h5file dataframe_h5p $ \dataframe_h5 -> do
      True <- hkl_h5_is_valid dataframe_h5
      runEffect $ getDataFrame dataframe_h5
        >->  print
main_sixs :: IO ()
main_sixs = do
  let root = "/nfs/ruche-sixs/sixs-soleil/com-sixs/2015/Shutdown4-5/XpadAu111/"
  let filename = "align_FLY2_omega_00045.nxs"
  let dataframe_h5p = DataFrameH5Path { h5pImage = DataItem "com_113934/scan_data/xpad_image" StrictDims
                                      , h5pMu = DataItem "com_113934/scan_data/UHV_MU" ExtendDims
                                      , h5pOmega = DataItem "com_113934/scan_data/UHV_OMEGA" ExtendDims
                                      , h5pDelta = DataItem "com_113934/scan_data/UHV_DELTA" ExtendDims
                                      , h5pGamma = DataItem "com_113934/scan_data/UHV_GAMMA" ExtendDims
                                      , h5pUB = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/UB" StrictDims
                                      , h5pWavelength = DataItem "com_113934/SIXS/Monochromator/wavelength" StrictDims
                                      , h5pDiffractometerType = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/type" StrictDims
                                      }

  withH5File (root </> filename) $ \h5file ->
    withDataframeH5 h5file dataframe_h5p $ \dataframe_h5 -> do
      True <- hkl_h5_is_valid dataframe_h5
      runEffect $ getDataFrame dataframe_h5
        >->  print
main_sixs = do
  let root = "/nfs/ruche-sixs/sixs-soleil/com-sixs/2015/Shutdown4-5/XpadAu111/"
  let filename = "align_FLY2_omega_00045.nxs"
  let dataframe_h5p = DataFrameH5Path { h5pImage = DataItem "com_113934/scan_data/xpad_image" StrictDims
                                      , h5pMu = DataItem "com_113934/scan_data/UHV_MU" ExtendDims
                                      , h5pOmega = DataItem "com_113934/scan_data/UHV_OMEGA" ExtendDims
                                      , h5pDelta = DataItem "com_113934/scan_data/UHV_DELTA" ExtendDims
                                      , h5pGamma = DataItem "com_113934/scan_data/UHV_GAMMA" ExtendDims
                                      , h5pUB = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/UB" StrictDims
                                      , h5pWavelength = DataItem "com_113934/SIXS/Monochromator/wavelength" StrictDims
                                      , h5pDiffractometerType = DataItem "com_113934/SIXS/I14-C-CX2__EX__DIFF-UHV__#1/type" StrictDims
                                      }

  withH5File (root </> filename) $ \h5file ->
    withDataframeH5 h5file dataframe_h5p $ \dataframe_h5 -> do
      True <- hkl_h5_is_valid dataframe_h5
      runEffect $ getDataFrame dataframe_h5
        >->  print