main = opts >>= (\os -> if opPr os
                           then fromFS (opDir os)
                           else fromDB os)
main = opts >>= (\os -> if opPr os
                           then fromFS (opDir os)
                           else fromDB os)
main = opts >>= (\os -> if opPr os
                           then fromFS (opDir os)
                           else fromDB os)