pss :: (MonadBaseControl IO m) => PassSetSpec -> L b m LL.PassSetSpec
pss spec =
  do c <- getC
     let dl = fromBackendMaybe (lDataLayout c)
     let tli = Just $ lLibraryInfo c
     let tm = fromBackendMaybe (lTargetMachine c)
     case spec of
       (PassSetSpec t) ->
         return $ LL.PassSetSpec t dl tli tm
       (CuratedPassSetSpec ol sl uaat slc uiwt) ->
         return $ LL.CuratedPassSetSpec ol sl uaat slc uiwt tli
pss :: (MonadBaseControl IO m) => PassSetSpec -> L b m LL.PassSetSpec
pss spec =
  do c <- getC
     let dl = fromBackendMaybe (lDataLayout c)
     let tli = Just $ lLibraryInfo c
     let tm = fromBackendMaybe (lTargetMachine c)
     case spec of
       (PassSetSpec t) ->
         return $ LL.PassSetSpec t dl tli tm
       (CuratedPassSetSpec ol sl uaat slc uiwt) ->
         return $ LL.CuratedPassSetSpec ol sl uaat slc uiwt tli
pss spec =
  do c <- getC
     let dl = fromBackendMaybe (lDataLayout c)
     let tli = Just $ lLibraryInfo c
     let tm = fromBackendMaybe (lTargetMachine c)
     case spec of
       (PassSetSpec t) ->
         return $ LL.PassSetSpec t dl tli tm
       (CuratedPassSetSpec ol sl uaat slc uiwt) ->
         return $ LL.CuratedPassSetSpec ol sl uaat slc uiwt tli