toNodeRes :: A.Resources -> Maybe NodeResources
toNodeRes res = NodeResources <$> res ^. A.disk
                              <*> res ^. A.ram
                              <*> res ^. A.cpu
toNodeRes :: A.Resources -> Maybe NodeResources
toNodeRes res = NodeResources <$> res ^. A.disk
                              <*> res ^. A.ram
                              <*> res ^. A.cpu
toNodeRes res = NodeResources <$> res ^. A.disk
                              <*> res ^. A.ram
                              <*> res ^. A.cpu